# Cavendish data, Winbugs koodi


model{  

theta ~ dnorm( m,w)

for(i in 1: N) {


y[i] ~ dnorm( theta,v )

}

}

data

list( N=23, m=5.48, w=0.0004,v=0.04,y=c(
5.36,5.29,5.58,5.65,5.57,5.53,5.62,5.29,5.44,5.34,5.79,
5.1,5.27,5.39,5.42,5.47,5.63,5.34,5.46,5.3,5.78,5.68,5.85) )

inits 

list( theta = 5.48 )