# NOT RUN {
## TB dataset
data('dat.Berkey1995', package = "MetaStan")
## Fitting a Binomial-Normal Hierarchical model using WIP priors
dat_MetaStan <- create_MetaStan_dat(dat = dat.Berkey1995,
armVars = c(responders = "r", sampleSize = "n"))
ma.stan <- meta_stan(data = dat_MetaStan,
likelihood = "binomial",
mu_prior = c(0, 10),
theta_prior = c(0, 100),
tau_prior = 0.5,
tau_prior_dist = "half-normal")
print(ma.stan)
forest_plot(ma.stan)
meta.reg.stan <- meta_stan(data = dat_MetaStan,
likelihood = "binomial",
mu_prior = c(0, 10),
theta_prior = c(0, 100),
tau_prior = 0.5,
tau_prior_dist = "half-normal",
mreg = TRUE,
cov = dat.Berkey1995$Latitude)
print(meta.reg.stan)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab