if (FALSE) {
# Reproduce the priors calculated in Thall et al. (2014)
p <- get_efftox_priors(
doses = c(1.0, 2.0, 4.0, 6.6, 10.0),
pi_T = c(0.02, 0.04, 0.06, 0.08, 0.10), ess_T = 0.9,
pi_E = c(0.2, 0.4, 0.6, 0.8, 0.9), ess_E = 0.9
)
p
# These are close to the published example. They do not match exactly because
# the process of deriving them is iterative.
}
Run the code above in your browser using DataLab