# NOT RUN {
dose = 5 # Dose levels
dose.tox <- c(0.05, 0.10, 0.15, 0.20, 0.30) # True toxicity per dose
p1 = 0.40 # Unacceptable DLT rate
p2 = 0.15 # Acceptable DLT rate
K = 2 # Likelihood-ratio (LR) threshold
coh.size = 3 # Assign 3 pts per dose in stage 1
safe.dose(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