# \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)
bayesCountPredsF(poissonModel,
counts = c(0,1),
at = list(weight=c(2,3)),
n_draws = 500)
}
# }
Run the code above in your browser using DataLab