# \donttest{
## Logit model ##
if(require(rstanarm)){
m1 <- stan_glm(switch ~ dist + educ + arsenic + assoc,
data = rstanarm::wells,
family = binomial,
refresh = 0,
iter = 500)
# marginal effect averaging over sample values of covariates #
bayesMargEffF(m1,
marginal_effect = 'arsenic',
start_value = 2.2,
end_value = .82,
n_draws = 500)
}
# }
Run the code above in your browser using DataLab