mtd_mse: Mean Square Error of the MTD estimates

In dnzmarcio/EWOC: Escalation with Overdose Control

Description

Calculate the Mean Square Error (MSE).

Usage

mtd_mse(mtd_estimate, true_mtd)

Arguments

mtd_estimate	a numerical vector of the MTD estimates.
true_mtd	a numerical value of the true Maximum Tolerable Dose.

Value

MSE of the MTD estimates.

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)
mtd_mse(sim$mtd_sim, true_mtd = 20)

## End(Not run)

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