if (instantiate::stan_cmdstan_exists()) {
data(actg019)
data(actg036)
## take subset for speed purposes
actg019 = actg019[1:100, ]
actg036 = actg036[1:50, ]
data_list = list(currdata = actg019, histdata = actg036)
glm.napp(
formula = cd4 ~ treatment + age + race,
family = poisson('log'),
data.list = data_list,
chains = 1, iter_warmup = 500, iter_sampling = 1000
)
}
Run the code above in your browser using DataLab