## Not run: ------------------------------------
# library(rstan)
# fit <- stan_demo("eight_schools")
# plot(fit)
# plot(fit, show_density = TRUE, ci_level = 0.5, fill_color = "purple")
# plot(fit, plotfun = "hist", pars = "theta", include = FALSE)
# plot(fit, plotfun = "trace", pars = c("mu", "tau"), inc_warmup = TRUE)
# plot(fit, plotfun = "rhat") + ggtitle("Example of adding title to plot")
## ---------------------------------------------
Run the code above in your browser using DataLab