# NOT RUN {
if (require("rstanarm")) {
model <- stan_glm(Sepal.Width ~ Species * Petal.Length, data = iris)
estimates <- estimate_response(model, keep_draws = TRUE, draws = 200)
reshape_draws(estimates)
}
# }
Run the code above in your browser using DataLab