# NOT RUN {
# A single effects plot
bg1 <- baggr(schools, prior_hypersd = uniform(0, 20))
effect_plot(bg1)
# Compare posterior effects as a function of priors (note ppd=F)
bg2 <- baggr(schools, prior_hypersd = normal(0, 5))
effect_plot("Uniform prior on SD"=bg1,
"Normal prior on SD"=bg2)
# }
Run the code above in your browser using DataLab