r - R优化函数

Question

我想使用 optim 函数来获得变量“结果”的最佳值

变量“ returns”具有适当的值（503）。我打印了这些值并且它工作正常。但是，我在调用“ optim”时遇到错误：

optim() 中的错误：L-BFGS-B 需要 'fn 的有限值

实际代码：

library(VGAM)
ini_val <- c(mean(returns), 1)
la_ret = optim(init_val, fn = function(theta){
-sum(log(dlaplace(returns, theta[1], theta[2])))},
method = "L-BFGS-B", lower = c(-Inf, 0))
la_ret

我不明白为什么我会得到无限的 ' fn'