Description Usage Arguments Value Examples
View source: R/operating_characteristics.R
Calculate the average, minimum, maximum number of patients to stop a trial and the percent of stopped trials. Stopped trials contain NA after the last assigned dose.
1 | stop_rule(dlt_matrix, sample_size, digits = 2)
|
dlt_matrix |
Matrix of the number of DLT for each step of the trial (column) and for each trial (row). |
sample_size |
a numerical value indicating the expected sample size. |
digits |
a numerical value indicating the number of digits. |
A list consisting of
average
: Average number of patients to stop a trial.
min
: Minimum number of patients to stop a trial.
max
: Maximum number of patients to stop a trial.
nstop
: Percent of stopped trials.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | ## 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")
stop_rule_sim(step_zero)
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 = 1, sample_size = 2,
alpha_strategy = "increasing",
response_sim = response_sim,
stop_rule_sim = stop_rule_sim,
ncores = 2)
stop_rule(sim$dlt_sim)
## End(Not run)
## 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")
stop_rule_sim(step_zero)
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,
stop_rule_sim = stop_rule_sim,
ncores = 2)
stop_rule(sim$dlt_sim)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.