hoge <- function(x){
x1 <- x[1]
x2 <- x[2]
x1^2 + x2^2
}
optim(c(1,1), hoge)のように実行すれば、最小値を計算できる。最大値を計算するときは、
optim(c(1,1), hoge, control=list(fnscale=-1))のようにする。
hoge <- function(x){
x1 <- x[1]
x2 <- x[2]
x1^2 + x2^2
}
optim(c(1,1), hoge)のように実行すれば、最小値を計算できる。最大値を計算するときは、
optim(c(1,1), hoge, control=list(fnscale=-1))のようにする。