极值1型 拟合参数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

weight=c(11260,15960,170304,17220,19470,20900,21620,21950,41410, 50760,53060,58600,65150,75130,85470,86240, 98580,130690,143630,153310, 158330)

LL<-function(params,weight)
{
f=exp(-exp(-(data-params[1])/params[2])-(data-params[1])/params[2])/params[2]
ll<-sum(log(f))
return(-ll)
}


params<-c(30000,40000)
geyser.res<-optim(c(30000,40000),LL, hessian = TRUE,method= "Nelder-Mead",control=list(fnscale=-1))
运行后：Error in data - params[1] : non-numeric argument to binary operator
请问这是为什么，是哪出错了，我就是想用这种估计的方式求出其系数，因为后还想做其它的 加权拟合 ，极值与对数正交分布的加权，请大神赐教。。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Weight Eight weigh wei

你的params[1]是数值，但是data - params[1]不是数值参数
所以报错了～