Get an object to fit the 3+3 model.

get_three_plus_three(num_doses, allow_deescalate = FALSE, ...)

Arguments

num_doses	Number of doses under investigation.
allow_deescalate	TRUE to allow de-escalation, as described by Korn et al. Default is FALSE.
...	Extra args are not currently used.

Value

an object of type selector_factory that can fit the 3+3 model to outcomes.

References

Storer BE. Design and Analysis of Phase I Clinical Trials. Biometrics. 1989;45(3):925-937. doi:10.2307/2531693

Korn EL, Midthune D, Chen TT, Rubinstein LV, Christian MC, Simon RM. A comparison of two phase I trial designs. Statistics in Medicine. 1994;13(18):1799-1806. doi:10.1002/sim.4780131802

Examples

model <- get_three_plus_three(num_doses = 5)

fit1 <- model %>% fit('1NNN 2NTN')
fit1 %>% recommended_dose()
#> [1] 2
fit1 %>% continue()
#> [1] TRUE

fit2 <- model %>% fit('1NNN 2NTN 2NNT')
fit2 %>% recommended_dose()
#> [1] 1
fit2 %>% continue()
#> [1] FALSE