# NOT RUN {
### Bayesian Random-Effects Meta-Analysis
# Note: The following code optimizes speed (for CRAN checks).
# The settings are not suitable for actual data analysis!
data(towels)
set.seed(123)
mr <- meta_random(logOR, SE, study, data = towels,
d = prior("norm", c(mean=0, sd=.3), lower = 0),
tau = prior("invgamma", c(shape = 1, scale = 0.15)),
rel.tol=.Machine$double.eps^.15, iter=1000)
mr
plot_posterior(mr)
# }
Run the code above in your browser using DataLab