model {
for (i in 1:N)
{yi<-sqrt(2 *3.141592653 * 21 * 100* aw * alpha1*alpha1 * time)-(38.482+wm)
yi~dnorm(0, 1600) }
aw~dlnorm(0.9073,1.481)
alpha1~dunif(0.348, 0.778)
}
DATA
list( N=3, time=c(0.046575, 0.054795, 0.046575), wm = c( 31.47, 34.13, 30.79 ))
INTS
list (Aw=2.48614, alpha1=0.61309)