# NOT RUN {
# Number of pre-specified dose levels
dose <- 5
# Vector of true toxicities associated with each dose
dose.tox <- c(0.05, 0.10, 0.20, 0.35, 0.45)
# Acceptable (p2) and unacceptable (p1) DLT rates used for establishing safety
p1 <- 0.40
p2 <- 0.15
# Likelihood-ratio (LR) threshold
K <- 2
# Cohort size used in stage 1
coh.size <- 3
# Stopping rule: if dose 1 is the only safe dose, allocate up to 9 pts.
stop.rule <- 9
tox.profile(dose = dose, dose.tox = dose.tox, p1 = p1, p2 = p2, K = K, coh.size = coh.size)
# }
Run the code above in your browser using DataLab