# Default method takes a numeric matrix (of posterior draws)
draws <- matrix(rnorm(100 * 5), 100, 5) # fake draws
colnames(draws) <- paste0("theta_", 1:5)
posterior_interval(draws)
# Also see help("posterior_interval", package = "rstanarm")
Run the code above in your browser using DataLab