target <- 0.25
# Where a design might choose to deescalate:
model1 <- get_mtpi2(num_doses = 5, target = target, epsilon1 = 0.05,
epsilon2 = 0.05, exclusion_certainty = 0.95)
model1 %>% fit('1NNN 2NTN') %>% recommended_dose()
# you can alter that behaviour when a precise number of toxicities have been
# seen in a precise number of patients:
model2 <- get_mtpi2(num_doses = 5, target = target, epsilon1 = 0.05,
epsilon2 = 0.05, exclusion_certainty = 0.95) %>%
stick_on_num_tox(num_tox = 1, num_patients = 3)
model2 %>% fit('1NNN 2NTN') %>% recommended_dose()
# The current dose is recommended instead.
Run the code above in your browser using DataLab