我想使用optim函数为我的变量“result”
获取最佳值变量“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”的无限值