powered by
A parammod with beta-distributed parameters
parammod
param_beta(a0, a1, b0, b1)
theta_0 ~ Beta(a0,a1)
theta_k ~ Beta(b0,b1)
a parammod
This model represents a prior on theta with: $$theta_0 ~ Beta(a0,a1)$$ $$theta_k ~ Beta(b0,b1)$$ for k = 1 ... kappa
# NOT RUN { ## theta0 ~ Beta(1,9); thetak ~ Beta(9,1) pb <- param_beta(1,9,9,1) pb$r(5) ## a draw with 5 within-block parameters # }
Run the code above in your browser using DataLab