# prior parameters
prior_par <- list(mu_psi = 0, sigma_psi = 1,
mu_beta = 0, sigma_beta = 1)
# obtain prior samples
samples <- simulate_priors(nsamples = 1000, prior_par = prior_par)
# plot, e.g., prior samples for absolute risk
hist(samples$arisk)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.