# NOT RUN {
data('dat.Crins2014', package = "MetaStan")
dat_long <- create_MetaStan_dat(dat = dat.Crins2014,
armVars = c(responders = "r", sampleSize = "n"))
bnhm.Crins <- meta_stan(data = dat_long, likelihood = "binomial",
mu_prior = c(0, 10), theta_prior = c(0, 100),
tau_prior = 0.5)
forest_plot(bnhm.Crins, xlab = "log-OR", labels = dat.Crins2014$publication)
# }
Run the code above in your browser using DataLab