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