## Setting up dummy sampling for fast execution of example
## Please use 4 chains and 20x more warmup & iter in practice
.user_mc_options <- options(RBesT.MC.warmup=50, RBesT.MC.iter=100,
RBesT.MC.chains=2, RBesT.MC.thin=1)
set.seed(34563)
asthma_ph3 <- subset(asthma, phase == "phase III")
map_asthma <- gMAP(cbind(log_mu_hat, se_log_mu_hat) ~ 1 + offset(log(d)) | study,
family = gaussian,
data = asthma_ph3,
tau.dist = "HalfNormal", tau.prior = 0.5,
beta.prior = cbind(0, 2)
)
## Recover user set sampling defaults
options(.user_mc_options)
Run the code above in your browser using DataLab