if (FALSE) {
# CRM example
target <- 0.2
fit <- stan_crm('1N 2N 3T', skeleton = c(0.1, 0.2, 0.35, 0.6),
target = target, model = 'empiric', beta_sd = sqrt(1.34),
seed = 123)
prob_tox_exceeds(fit, target)
}
Run the code above in your browser using DataLab