design1 <- get_mtpi2(
num_doses = 5, target = 0.25,
epsilon1 = 0.05, epsilon2 = 0.05,
exclusion_certainty = 0.95
) %>%
stop_at_n(n = 12)
design2 <- get_mtpi2(
num_doses = 5, target = 0.25,
epsilon1 = 0.1, epsilon2 = 0.1,
exclusion_certainty = 0.95
) %>%
stop_at_n(n = 12)
designs <- list(
"Design1" = design1,
"Design2" = design2
)
sims <- simulate_compare(
designs = designs,
num_sims = 20,
true_prob_tox = c(0.1, 0.2, 0.3, 0.4, 0.5)
)
convergence_plot(sims)
Run the code above in your browser using DataLab