View source: R/simulate_tepi.R
simulate_tepi | R Documentation |
This function runs simulations of the TEPI design by evaluating operating characteristics over a range of cohort sizes. For each dose level within the user-specified range, it performs multiple trials and saves the results to a corresponding file.
simulate_tepi(
ndose,
ssizerange,
target_t,
lower_e,
cohortsize = 3,
startdose = 1,
effint_l = c(0, lower_e, lower_e + 0.2, lower_e + 0.4),
effint_u = c(lower_e, lower_e + 0.2, lower_e + 0.4, 1),
toxint_l = c(0, 0.15, target_t, target_t + 0.05),
toxint_u = c(0.15, target_t, target_t + 0.05, 1),
psafe = 0.95,
pfutility = 0.9,
ntrial = 10000,
utilitytype = 1,
u1,
u2,
prob = NULL,
save_dir = tempdir(),
save_folder = "tepi_simulations",
save_file = "tepi2_simulation.csv"
)
ndose |
Integer. Number of dose levels. (Required) |
ssizerange |
Integer vector. Range of number of cohorts to simulate. (Required) |
target_t |
Numeric. Target toxicity probability. (Required) |
lower_e |
Numeric. Minimum acceptable efficacy probability. (Required) |
cohortsize |
Integer. Size of a cohort. (Default is |
startdose |
Integer. Starting dose level. (Default is |
effint_l |
Lower efficacy bounds for dose assignment decision table. (Default is |
effint_u |
Lower efficacy bounds for dose assignment decision table. (Default is |
toxint_l |
Lower toxicity bounds for dose assignment decision table. (Default is |
toxint_u |
Lower toxicity bounds for dose assignment decision table. (Default is |
psafe |
Numeric. Early stopping cutoff for toxicity. (Default is |
pfutility |
Numeric. Early stopping cutoff for efficacy. (Default is |
ntrial |
Integer. Number of random trial replications. (Default is |
utilitytype |
Integer. Type of utility structure. (Default is
|
u1 |
Numeric. Utility parameter w_11. (0-100) |
u2 |
Numeric. Utility parameter w_00. (0-100) |
prob |
Fixed probability vectors. If not specified, a random scenario is used by default. Use this parameter to provide fixed probability vectors as a list with the following named elements:
For example: prob <- list( pE = c(0.4, 0.5, 0.6, 0.6, 0.6), pT = c(0.1, 0.2, 0.3, 0.4, 0.4), obd = 3, mtd = 2 ) |
save_dir |
Directory to save output folders. Default is |
save_folder |
Folder name. (Default is "boin12_simulations") |
save_file |
File name. (Default is "boin12_simulation.csv") |
No return value, called for side effects
simulate_tepi(
ndose = 5,
ssizerange = 1:2,
target_t = 0.3,
lower_e = 0.4,
ntrial = 10,
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.