要求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)))
求各位指点问题出现在那里!谢谢谢谢!万分感谢!