# Define a joint distribution
p_prior <- BuildPrior(
p0 = c(A = 0.15, B = 0.45, mean_v = 2.25, sd_v = 0.15, t0 = 0.2),
p1 = rep(0.1, 5),
lower = rep(NA, 5),
upper = rep(NA, 5),
dist = rep("tnorm", 5),
log_p = rep(FALSE, 5)
)
plot_prior(p_prior)
Run the code above in your browser using DataLab