LZ是 R语言新手...以前没接触过编程，所以都是边查边写，好多地方不知道对不对..求各位大神指点！
要求4个参数的极大似然值，这是似然方程：

我编的代码是这样的，其实并没有信心感觉他是对的

> LL<-function(params,ut){
+ m=param[1]
+ n=param[2]
+ l=param[3]
+ k=param[4]
+ f<-exp(-ut/(gamma(1)*exp(2*(param[1]+(param[2]+param[3])*log(ut))/(1+param[2]+param[3]-param[4]))))
+ ll=sum(log(f))
+ return(-log(ll))
+ }

然后在用nlminb函数的时候出现了以下的情况：
Error in objective(.par, ...) :
  unused argument (data = list(V1 = c(1.01157, 0.95575, 0.88368, 0.89658, 1.04106, 1.08622, 0.83943, 0.96935, 1.01142, 1.04429, 1.02087, 0.90694, 1.09974, 1.04155, 0.93418, 0.96656, 1.03199, 1.04394, 0.96934, 1.02265, 1.06791, 1.09918, 0.99796, 1.04255, 1.13939, 0.97173, 0.96149, 0.99774, 0.77768, 1.04982, 0.84358, 0.81743, 1.02211, 0.98401, 0.99872)))

求各位指点问题出现在那里！谢谢谢谢！万分感谢！