In dcnorris/precautionary: Safety Diagnostics for Dose-Escalation Trial Designs

knitr::opts_chunk$set(echo = TRUE)

library(escalation)
p1 <- get_three_plus_three(num_doses=1, allow_deescalate=TRUE) %>%
    get_dose_paths(cohort_sizes=rep(3, 2)) # D=1 trial enrolls at most 2 cohorts
g1 <- graph_paths(p1)
g1$width <- g1$height <- 250
g1

\newpage

p2 <- get_three_plus_three(num_doses=2, allow_deescalate=TRUE) %>%
    get_dose_paths(cohort_sizes=rep(3, 4)) # D=2 trial enrolls at most 4 cohorts
graph_paths(p2)

\newpage

Not just DTP, but the sims themselves omit 2nd MTD cohort

set.seed(2020)
true_prob_tox <- c(0, 0, 0) # drive simulation to top dose with zero toxicity
num_sims <- 1
sims <- get_three_plus_three(num_doses = 3, allow_deescalate = TRUE) %>%
  simulate_trials(num_sims = num_sims, true_prob_tox = true_prob_tox)
sims[[1]][[1]][[1]]$fit

References

dcnorris/precautionary documentation built on Feb. 5, 2022, 12:13 p.m.