搜索
人大经济论坛 附件下载

附件下载

所在主题:
文件名:  firstlession.pdf
资料下载链接地址: https://bbs.pinggu.org/a-3357122.html
附件大小:
439.09 KB   举报本内容
今天进行了新的测试,以后不论是 MATLAB还是R程序,都会做成PDF 文件的样子发布,作为课程发布;
今天没有对英文单词的拼写是否正确进行校正。

只是测试一下,这次的测试不收论坛币,以后发布的课程都会收论坛币。因为今天的测试使用了一个命令 echo ,这样的话大家看不到源代码。以后发布的 PDF 文件,会把源代码添加进去。让大家使用的时候更加的容易。


$$
{\varepsilon _t} = H_t^{1/2}{z_t},
$$






图片一张:



后续上传带代码的PDF文件。

图片二,本帖明天添加一个带有源代码的 R 软件的PDF 文件后,不再修改本帖;
这个图片是 R 软件贝叶斯计量做的图片。 不过使用难度非常高,大概需要大学教授、博士学位水平,我群里会 WinBUGS贝叶斯估计的也是一个博士后弟弟;认识了十年了吧。
先上代码:
  1. ## 贝叶斯模型 WinBUGS 软件模型设定格式

  2. model <- "
  3. // Logistic Psychophysical Function
  4. data {
  5. int nsubjs;
  6. int nstim[nsubjs];
  7. int n[nsubjs,28];
  8. int r[nsubjs,28];
  9. int x[nsubjs,28];
  10. vector[nsubjs] xmean;
  11. }
  12. parameters {
  13. real mua;
  14. real mub;
  15. real<lower=0,upper=1000> sigmaa;
  16. real<lower=0,upper=1000> sigmab;
  17. vector[nsubjs] alpha;
  18. vector[nsubjs] beta;
  19. }
  20. model {
  21. // Priors
  22. mua ~ normal(0, inv_sqrt(.001));
  23. mub ~ normal(0, inv_sqrt(.001));

  24. alpha ~ normal(mua, sigmaa);
  25. beta ~ normal(mub, sigmab);

  26. for (i in 1:nsubjs) {
  27. for (j in 1:nstim[i]) {
  28. real theta;
  29. theta <- inv_logit(alpha[i] + beta[i] * (x[i,j] - xmean[i]));
  30. r[i,j] ~ binomial(n[i,j], theta);
  31. }
  32. }
  33. }"
复制代码
插入的第二张图片, 这样看来本帖过于大,不再增加带有代码的 PDF 文件, 那么以后的帖子会采用带有彩色代码,重要的事情强调一遍。(彩色R代码的PDF文件,以后经常上传论坛。代码可以自己在自己的电脑上测试)。



    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载,请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品,拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知,将积极的采取必要措施;同时,本站也将在技术手段和能力范围内,履行版权保护的注意义务。
(如有侵权,欢迎举报)
二维码

扫码加我 拉你入群

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

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

GMT+8, 2026-2-8 01:37