model kenya1 { for (i in 1:N) { y[i] ~ dnorm(mu, 0.000625) } mu ~ dnorm(30,0.0625) } list(y=c(48,53,44,55,52,39,62,38,23,27,41,37,41,46,32,17, 32,41,23,12,3,13,10,11,5,30,11,9,7,11,77,210,38,112,52,10,6), N=37) model kenya2 { for (i in 1:N) { y[i] ~ dnorm(mu, 0.000625) } mu ~ dunif(-100000000,100000000) } list(y=c(48,53,44,55,52,39,62,38,23,27,41,37,41,46,32,17, 32,41,23,12,3,13,10,11,5,30,11,9,7,11,77,210,38,112,52,10,6), N=37) list(mu=30) model kenya3 { for (i in 1:N) { y[i] ~ dnorm(mu, 0.000625) } mu ~ dt(30, 1, 3) } list(y=c(48,53,44,55,52,39,62,38,23,27,41,37,41,46,32,17, 32,41,23,12,3,13,10,11,5,30,11,9,7,11,77,210,38,112,52,10,6), N=37)