今天没有对英文单词的拼写是否正确进行校正。
只是测试一下,这次的测试不收论坛币,以后发布的课程都会收论坛币。因为今天的测试使用了一个命令 echo ,这样的话大家看不到源代码。以后发布的 PDF 文件,会把源代码添加进去。让大家使用的时候更加的容易。
$$
{\varepsilon _t} = H_t^{1/2}{z_t},
$$
firstlession.pdf
(439.09 KB)
图片一张:
后续上传带代码的PDF文件。
图片二,本帖明天添加一个带有源代码的 R 软件的PDF 文件后,不再修改本帖;
这个图片是 R 软件贝叶斯计量做的图片。 不过使用难度非常高,大概需要大学教授、博士学位水平,我群里会 WinBUGS贝叶斯估计的也是一个博士后弟弟;认识了十年了吧。
先上代码:
- ## 贝叶斯模型 WinBUGS 软件模型设定格式
- model <- "
- // Logistic Psychophysical Function
- data {
- int nsubjs;
- int nstim[nsubjs];
- int n[nsubjs,28];
- int r[nsubjs,28];
- int x[nsubjs,28];
- vector[nsubjs] xmean;
- }
- parameters {
- real mua;
- real mub;
- real<lower=0,upper=1000> sigmaa;
- real<lower=0,upper=1000> sigmab;
- vector[nsubjs] alpha;
- vector[nsubjs] beta;
- }
- model {
- // Priors
- mua ~ normal(0, inv_sqrt(.001));
- mub ~ normal(0, inv_sqrt(.001));
-
- alpha ~ normal(mua, sigmaa);
- beta ~ normal(mub, sigmab);
-
- for (i in 1:nsubjs) {
- for (j in 1:nstim[i]) {
- real theta;
- theta <- inv_logit(alpha[i] + beta[i] * (x[i,j] - xmean[i]));
- r[i,j] ~ binomial(n[i,j], theta);
- }
- }
- }"




雷达卡




京公网安备 11010802022788号







