R은 루프에 따라 함수로 optim()을 호출합니다

Question

R에 대한 optim() 함수에 관한 간단한 문제입니다. 루프의 변수에 따라 함수의 최소값을 찾으려고합니다.

f<-function(x,i){ 
    i*x 
} 

M<-matrix(0,10,1) 

    for (i in 1:5) { 
    M[i,1]<-optim(c(1),f,lower=-2,upper=2,method="L-BFGS-B") 
    } 
M 

R 내게 응답 : 정말 당신은 optim 호출에 i을 통과해야이 하나 ....

Answer 1

처리하는 방법을 이해하지

Erreur dans i * x : 'i' est manquant 

:

optim(1,f,i=i,lower=-2,upper=2,method="L-BFGS-B") 

... 및 optim은 목록을 반환하므로 어떤 요소를 선택해야합니까? M에 저장하려는 목록의 NT.

이

M[i,1] <- optim(1,f,i=i,lower=-2,upper=2,method="L-BFGS-B")$par 

UPDATE : 저스틴 코멘트에서 지적

이, 더 많은 R-같은 방법이 될 것이라고 할 : 나는 당신이 par을한다고 가정

L <- list() 
for (i in 1:5) { 
    L[[i]] <- optim(1,f,i=i,lower=-2,upper=2,method="L-BFGS-B") 
} 
V <- sapply(L, `[[`, "par")