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