outcomes <- '1NNN 2TTT'
# TPI example. This method defines admissibility.
fit1 <- get_tpi(num_doses = 5, target = 0.3, k1 = 1, k2 = 1.5,
exclusion_certainty = 0.95) %>%
fit(outcomes)
fit1 %>% dose_admissible()
# Ordinary CRM example with no admissibility function.
skeleton <- c(0.05, 0.1, 0.25, 0.4, 0.6)
target <- 0.25
fit2 <- get_dfcrm(skeleton = skeleton, target = target) %>%
fit(outcomes)
fit2 %>% dose_admissible()
# Same CRM example with added admissibility function
fit3 <- get_dfcrm(skeleton = skeleton, target = target) %>%
stop_when_too_toxic(dose = 1, tox_threshold = target, confidence = 0.8) %>%
fit(outcomes)
fit3 %>% dose_admissible()
Run the code above in your browser using DataLab