我是Winbugs的新手,我正在尝试为网络元分析编写随机效应模型。我为治疗效果“sd~dunif(0,5)”的标准差设定了一个模糊的先验,我发现sd估计eqaul ca. 2.当我增加或减少此范围时,sd的估计值会按比例变化。如果有人能够查看这些代码并改进它,我将不胜感激。
数据结构如下: data_structure
#DATA
list(n=4, t=4, ref=1)
y[] se[] t1[] t2[]
0.8 0.09 1 2
0.73 0.12 1 3
1.03 0.34 3 4
0.4 0.2 1 4
END
model{
for (i in 1:n){
y[i]~dnorm(delta[i],prec[i])
var[i]<-pow(se[i],2)
prec[i]<-1/var[i]
delta[i]~dnorm(md[i],taud[i])
md[i]<-d[t2[i]]-d[t1[i]]
taud[i]<- tau*2
}
sd~dunif(0,5)
tau<-1/pow(sd,2)
for(k in 1:ref-1){
d[k]~dnorm(0,0.0001)
}
d[ref]<-0
for(k in ref+1:t){
d[k]~dnorm(0,0.0001)
}
}