# \donttest{
if(require(rstanarm)){
crabs <- read.table("https://users.stat.ufl.edu/~aa/cat/data/Crabs.dat",
header = TRUE)
poissonModel <- stan_glm(sat ~ weight + width,
data = crabs,
family = poisson,
refresh = 0,
iter = 500)
# marginal effect holding covariates at their means #
bayesCountMargEffF(poissonModel,
counts = 1,
marginal_effect = 'width',
start_value = 25,
end_value = 20,
at_means = TRUE,
n_draws = 500)
}
# }
Run the code above in your browser using DataLab