optimal_mtd: Percent of doses in relation the optimal MTD interval

In dnzmarcio/EWOC: Escalation with Overdose Control

Description

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

Usage

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.

Value

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)

dnzmarcio/EWOC documentation built on Sept. 28, 2021, 6:52 a.m.