optimal_mtd function

Percent of doses in relation the optimal MTD interval

Calculate the percent of doses which are inside the optimal MTD interval [true_MTD - margin ; true_MTD + margin].

optimal_mtd(dose_matrix, true_mtd, margin, digits = 2)

Arguments

• dose_matrix: a numerical matrix or vector of assigned doses for each step of the trial (column) and for each trial (row).
• true_mtd: a numerical value of the true Maximum Tolerable Dose.
• margin: a numerical value of the acceptable margin of distance from the true_mtd.
• digits: a numerical value indicating the number of digits.

Returns

interval the average percent of doses which are inside the optimal MTD interval.

underdose the average percent of doses which are smaller than the lower limit of the optimal MTD interval.

overdose the average percent of doses which are greater than the upper limit of the optimal MTD interval.

Examples

## Not run:

DLT <- 0
dose <- 20
step_zero <- ewoc_d1classical(DLT ~ dose, type = 'discrete',
                           theta = 0.33, alpha = 0.25,
                           min_dose = 0, max_dose = 100,
                           dose_set = seq(0, 100, 20),
                           rho_prior = matrix(1, ncol = 2, nrow = 1),
                           mtd_prior = matrix(1, ncol = 2, nrow = 1),
                           rounding = "nearest")
response_sim <- response_d1classical(rho = 0.05, mtd = 20, theta = 0.33,
                                  min_dose = 10, max_dose = 50)
sim <- ewoc_simulation(step_zero = step_zero,
                       n_sim = 2, sample_size = 30,
                       alpha_strategy = "increasing",
                       response_sim = response_sim,
                       ncores = 2)
optimal_mtd(sim$mtd_sim, true_mtd = 20, margin = 0.1*20)
optimal_mtd(sim$dose_sim, true_mtd = 20, margin = 0.1*20)
## End(Not run)