# \donttest{
## Logit model ##
if(require(rstanarm)){
m1 <- stan_glm(switch ~ dist + educ + arsenic + assoc,
data = rstanarm::wells,
family = binomial,
refresh = 0,
iter = 500)
# marginal predictions holding covariates at means #
bayesPredsF(m1,
at = list(arsenic = c(.82, 1.3)),
at_means = TRUE,
n_draws = 500)
}
# }
Run the code above in your browser using DataLab