model
{
for( i in 1 : N ) {
WSG[i]~dnorm(mu,tau)
tau~dgamma(r,s)
mu~dnorm(0.5,1000000)
}
r~dnorm(0.0,1.0E-6)
s~dnorm(0.0,1.0E-6)
sigma <- 1 / sqrt(tau)
}
Data
list(WSG=c(0.976,0.946,0.964,0.886,1.3075), N=5)
inits
list(r=0.5,s=100000)



雷达卡





京公网安备 11010802022788号







