Ошибка R: не может привести к двойному замыканию

Question

Я пытаюсь построить пример оптимизации для моего друга в R, но, как сказано в заголовке, я получаю следующую ошибку. Я видел другой вопрос с аналогичным ответом, но это не было поучительно. Буду признателен за помощь, спасибо.

Ошибка в optim (ll, method = "BFGS"): не может привести тип 'замыкание' к вектору типа 'double'

dados <- rbinom(n = 40, size = 5, prob = 0.1)
cov <- rep(1, times = 40)
n <- 40

ll <-  function(k){
        fn_dados <- dados*cov - n*cov*(exp(cov*k)/(1 + exp(cov*k))) 
        loglike <- sum(fn_dados)
          return(loglike)
}

optim(ll, method = 'BFGS')

Answer 1

Похоже, вы просто пропустили некоторые параметры, поэтому вы запутались optim() в том, что вы в него передавали.

optim(par=c(0),fn=ll, method = 'BFGS')

$`par`
[1] 400

$value
[1] -1581

$counts
function gradient 
       2        2 

$convergence
[1] 0

$message
NULL