if (FALSE) {
# Visualise a single prior
prior <- prior(normal(0, 10), class = "b")
visualise_prior(prior)
# Compare different priors
prior_list <- list(
"Weak" = prior(normal(0, 10), class = "b"),
"Medium" = prior(normal(0, 5), class = "b"),
"Strong" = prior(normal(0, 1), class = "b")
)
visualise_prior(prior_list)
# Visualise with custom limits
visualise_prior(prior, xlim = c(-20, 20))
}
Run the code above in your browser using DataLab