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)
tox_at_dose(fit) # c(0, 0, 1, 0)
tox_at_dose(fit, dose = 3) # 1
}
Run the code above in your browser using DataLab