全部版块 我的主页
论坛 计量经济学与统计论坛 五区 计量经济学与统计软件 Stata专版
14613 12
2008-09-18

这是我从王群勇上照搬的蒙特卡洛模拟程序,怎么不出结果,问题在哪里?谢谢

program rdwalk5,rclass
version 10
syntax [,n(integer 1000)
drop _all
quietly set obs 'n'
capture drop y x1 x2 x3 x4 x5 rndy rndx1 rndx2 rndx3 rndx4 rndx5
quietly {
    gen rndy=100+(1000-100)*invnorm(uniform())
    gen rndx1=10+(100-10)*invnorm(uniform())
    gen rndx2=9+(22-9)*invnorm(uniform())
    gen rndx3=2+(12-2)*invnorm(uniform())
    gen rndx4=6+(24-6)*invnorm(uniform())
    gen rndx5=0+(100-0)*invnorm(uniform())
    gen y=rndy
    gen x1=rndx1
    gen x2=rndx2
    gen x3=rndx3
    gen x4=rndx4
    gen x5=rndx5
    replace y=y[_n-1]+rndy[-n] in 2/'n'
    replace x1=x1[_n-1]+rndx1[-n] in 2/'n'
    replace x3=x3[_n-1]+rndx2[-n] in 2/'n'
    replace x4=x4[_n-1]+rndx3[-n] in 2/'n'
    replace x5=x5[_n-1]+rndx4[-n] in 2/'n'
    regress y x1 x2 x3 x4 x5
    matrix matb=e(b)
    matrix matv=e(V)
    return scalar b=el(matb,1,2)
    return scalar se=sqrt(el(matv,2,2))
  }
end
simulate beta=(r(b)) se=(r(se)),reps(10000) nodots:rdwalk

二维码

扫码加我 拉你入群

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

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

全部回复
2008-9-20 10:08:00
模拟程序Stata里simulate命令帮助中就有

program define lnsim, rclass
        version 10.1
        syntax [, obs(integer 1) mu(real 0) sigma(real 1) ]
        drop _all
        set obs `obs'
        tempvar z
        gen `z' = exp(rnormal(`mu',`sigma'))
        summarize `z'
        return scalar mean = r(mean)
        return scalar Var  = r(Var)
end
simulate mean=r(mean) var=r(Var), reps(10000): lnsim, obs(100)

二维码

扫码加我 拉你入群

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

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

2008-9-21 08:06:00

谢谢,这个我也试过了。那么,我再问一个菜鸟的问题:

syntax [, obs(integer 1) mu(real 0) sigma(real 1) ]

能具体给我解释一下各项的含义吗?谢谢!

二维码

扫码加我 拉你入群

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

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

2008-9-28 18:23:00
以下是引用wangjie20012006在2008-9-21 8:06:00的发言:

谢谢,这个我也试过了。那么,我再问一个菜鸟的问题:

syntax [, obs(integer 1) mu(real 0) sigma(real 1) ]

能具体给我解释一下各项的含义吗?谢谢!

一言难尽,参见help syntax。
二维码

扫码加我 拉你入群

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

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

2008-9-30 15:57:00
已经解决了,谢谢!
二维码

扫码加我 拉你入群

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

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

2009-9-21 17:17:13
2# eblog

为什么我用这个程度执行不了?结果显示
Unknown function rnormal()
r(133);

请博主赐教!谢谢
二维码

扫码加我 拉你入群

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

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

点击查看更多内容…
相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群