楼主: bobguy
1486 1

[原创博文] Likelihood estimation with nlmixed + optmodel [推广有奖]

学科带头人

7%

还不是VIP/贵宾

-

威望
0
论坛币
14187 个
通用积分
28.9279
学术水平
344 点
热心指数
363 点
信用等级
228 点
经验
104882 点
帖子
1846
精华
0
在线时间
1608 小时
注册时间
2008-7-18
最后登录
2019-3-8

中级热心勋章

楼主
bobguy 发表于 2012-3-16 09:18:53 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

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

感谢您参与论坛问题回答

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

+2 论坛币
%let n=10000;

data t1;
   do i=1 to &n;
      x=rannor(123);
      y=1+1*x+rannor(123);
      x0=1;
      output;
    end;
    keep y x x0;
run;


proc nlmixed data=t1;
parms b0 b1=0 s=2;
e=y-(b0 + b1*x);
*loglik=log(pdf('normal',e,0,s));
loglik=log( ( 1/(s*sqrt(2*constant('pi')))) * exp(  -(y - (b0 + b1*x))**2/(2*s**2)) );
model y ~ general (loglik);
run;

proc optmodel;
   set I = 1 .. &n;
   number y{I};
   number x{I};
   read data t1 into [_n_] y x ;
   var b0 init 0, b1 init 0, s init 2;
   impvar loglik=sum{k in I}
         -2*log( ( 1/(s*sqrt(2*constant('pi')))) * exp(  -(y[k]- (b0 + b1*x[k]))**2/(2*s**2)) );

/*          -2*log(pdf('normal', y[k] - (b0 + b1*x[k]))); */
   min f = loglik;
    reset printlevel=2;  
   solve with nlp / hesstype=full;
   print  b0 b1 s;
quit;
二维码

扫码加我 拉你入群

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

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

关键词:Likelihood Estimation OPTMODEL nlmixed Mixed general number normal

沙发
denver 发表于 2012-3-16 13:43:02
能不能给点说明或者注释?
Denver大家一起读Paper系列索引贴:
https://bbs.pinggu.org/thread-1430892-1-1.html

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2025-12-31 19:31