R软件 极大似然 非数值参数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

R软件初学，求大神挑错。
> LL<-function(params,data){
+ t1<-function(params,data){
+ t1<-params[1]*(1+(params[2]*data)/params[1])^(1+1/params[2])
+ }
+ II<-sum(log(t1))
+ return(-II)
+ }
> data1.res<-nlminb(c(0.0001,0.0001),LL,data=data1[,1],
+ lower=c(0.000001,0.000001),upper=c(20,20))
错误于log(t1) : 数学函数中用了非数值参数
。。。。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：极大似然 r软件 软件 function return

t1里面有未知参数或者非数值参数吧

南冰 发表于 2012-10-3 17:11
t1里面有未知参数或者非数值参数吧

本身是想用 极大似然 求参数的 不可能避免位置参数呀。。

试一下这样行不行

LL<-function(params,data){

t1<-params[1]*(1+(params[2]*data)/params[1])^(1+1/params[2])

II<-sum(log(t1))
return(-II)
}
data1.res<-nlminb(c(0.0001,0.0001),LL,data=data1[,1],
lower=c(0.000001,0.000001),upper=c(20,20))