if (instantiate::stan_cmdstan_exists()) {
data(actg019)
data(actg036)
## take subset for speed purposes
actg019 = actg019[1:100, ]
actg036 = actg036[1:50, ]
formula = outcome ~ scale(age) + race + treatment + scale(cd4)
family = binomial('logit')
data_list = list(currdata = actg019, histdata = actg036)
d.bhm = glm.bhm(
formula = formula,
family = family,
data.list = data_list,
chains = 1, iter_warmup = 500, iter_sampling = 1000
)
glm.logml.map(
post.samples = d.bhm,
bridge.args = list(silent = TRUE),
chains = 1, iter_warmup = 1000, iter_sampling = 2000
)
}
Run the code above in your browser using DataLab