Rのoptim関数のエラーについて
Q&A
Closed
解決したいこと
Rのoptim関数で、"optim の目的関数が 1 つではなくて 3 個の結果を評価しています"と表示されるので、このエラーを解決したいです。
発生している問題・エラー
以下のエラーが表示されます。
optim の目的関数が 1 つではなくて 3 個の結果を評価しています
以下はRのコードです。
optim.fun1 <- function(g){
g1 <- g[1]
g2 <- g[2]
g3 <- g[3]
return(function(pm){
p1 <- pm[1]
p2 <- pm[2]
p3 <- pm[3]
result <- (pm - g)^2
return(result)
})
}
data1 <- c(1,2,3)
optim(c(1,1,1),optim.fun1(data1))
0
