求拯救，误于optim(r = c(0.5, rep(0, 9)), fn, method = "L-BFGS-B") :
  cannot coerce type 'closure' to vector of type 'double'
optimize(fn,c(-1,3))
错误于f(arg, ...) : 找不到对象'p'
最大似然估计怎么这么难搞定啊，谁有 建议或者什么的，只要是关于最大似然估计的，参数估计的，都非常欢迎！非常感谢！