R/stop_when_n_at_dose_selector.R
stop_when_n_at_dose.RdThis method stops a dose-finding trial when there are n patients at a dose. It can stop when the rule is triggered at the recommended dose, at a particular dose, or at any dose.
stop_when_n_at_dose(parent_selector_factory, n, dose)Object of type selector_factory.
Stop when there are n at a dose.
'any' to stop when there are n at any dose;
'recommended' to stop when there are n at the recommended dose; or an
integer to stop when there are n at a particular dose-level.
an object of type selector_factory that can fit a
dose-finding model to outcomes.
skeleton <- c(0.05, 0.1, 0.25, 0.4, 0.6)
target <- 0.25
# This model will stop when 12 are seen at any dose:
model1 <- get_dfcrm(skeleton = skeleton, target = target) %>%
stop_when_n_at_dose(n = 12, dose = 'any')
# This model fit will not stop:
model1 %>% fit('1NNN 2NTN 2TNN 2NNN') %>% continue()
#> [1] TRUE
# But this model fit will stop:
model1 %>% fit('1NNN 2NTN 2TNN 2NNN 2NTT') %>% continue()
#> [1] FALSE
# This model will stop when 12 are seen at the recommended dose:
model2 <- get_dfcrm(skeleton = skeleton, target = target) %>%
stop_when_n_at_dose(n = 12, dose = 'recommended')
# This model fit will not stop:
fit2 <- model2 %>% fit('1NNN 2NTN 2TNN 2NNN')
fit2 %>% recommended_dose()
#> [1] 2
fit2 %>% continue()
#> [1] TRUE
# But this model fit will stop:
fit3 <- model2 %>% fit('1NNN 2NTN 2TNN 2NNN 2NNT')
fit3 %>% recommended_dose()
#> [1] 2
fit3 %>% continue()
#> [1] FALSE