# \donttest{
## Logit model ##
if(require(rstanarm)){
m1 <- stan_glm(switch ~ dist + educ + arsenic + assoc,
data = rstanarm::wells,
family = binomial,
refresh = 0,
iter = 500)
m1Marg <- bayesMargEffF(m1,
marginal_effect = 'arsenic',
start_value = 2.2,
end_value = .82,
at = list(educ=c(0, 5)),
n_draws = 500)
bayesMargCompareF(m1Marg)
}
# }
Run the code above in your browser using DataLab