model {
y <- 10
n <- 100
y ~ dbin(theta, n)
logit(theta) <- logit.theta
logit.theta ~ dnorm(0, 0.368)
}

node mean sd MC error 2.5% median 97.5% start sample
theta 0.1081 0.03029 3.387E-4 0.05725 0.1052 0.1744 1001 10000