# 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 <- applied_crm(prior, target, tox, level, no_skip_esc = TRUE, no_skip_deesc = TRUE,
global_coherent_esc = TRUE, stop_func = NULL)
plot_crm(crm, dose_labels = c("1", "2", "3"))
# }
Run the code above in your browser using DataLab