# NOT RUN {
data(budworm)
Mbudworm1 <- stan_glm(formula = cbind(dead, 20 - dead) ~ ldose,
family = binomial, data = budworm,
prior = student_t(df = 7),
prior_intercept = student_t(df = 7))
Mbudworm2 <- stan_glm(formula = cbind(dead, 20 - dead) ~ ldose * sex,
family = binomial, data = budworm,
prior = student_t(df = 7),
prior_intercept = student_t(df = 7))
Mbudworm3 <- stan_glm(formula = cbind(dead, 20 - dead) ~ ldose + sex,
family = binomial, data = budworm,
prior = student_t(df = 7),
prior_intercept = student_t(df = 7))
looicplot(looiclist = list("Mbudworm1", "Mbudworm2", "Mbudworm3"),
modnames = c("~ ldose", "~ ldose + sex", "~ ldose * sex") )
# }
Run the code above in your browser using DataLab