# NOT RUN {
prior <- c(0.1, 0.3, 0.5)
target <- 0.2
tox <- c(0, 0, 1, 0, 1, 1)
level <- c(1, 1, 1, 2, 2, 2)
crm_obj <- applied_crm(prior, target, tox, level, no_skip_esc = TRUE, no_skip_deesc = TRUE,
global_coherent_esc = TRUE, stop_func = NULL)
summary_crm(crm_obj)
# }
Run the code above in your browser using DataLab