dtpcrm (version 0.1.1)

applied_titecrmts_sim: Simulate TITE-CRM trials using specified design options

Description

applied_titecrmts_sim is used to simulate trials using the two-stage time-to-event continual reassessment method with specified design options to determine the operating characteristics.

Usage

applied_titecrmts_sim(true_tox, prior, target, max_sample_size,
    num_sims, cohort_size = 1, obswin, minfu, recrate, initdes,
    dose_func = applied_titecrm, ...)

Arguments

true_tox

A vector of 'true' underlying rates of toxicity for each of the dose levels.

prior

A vector of prior estimates of toxicity probabilties for the dose levels.

target

The target DLT rate.

max_sample_size

The maximum number of subjects to be recruited in any simulation.

num_sims

The total number of simulations to be run.

cohort_size

The size of the cohorts. Default is 1.

obswin

The observation period for total subject follow up.

minfu

The minimum amount of follow-up required for each subject.

recrate

The number of subjects recruited per obswin.

initdes

A vector specifying the doses to be assisned to subjects as per the initial design.

dose_func

The function to be employed in executing the CRM. Default is applied_titecrm.

...

Any other arguements detailed in dtp::applied_titecrm.

Value

A list containg two further lists. The first of these lists contains the operating charateristics of the design, the second contains the underlying data for each of the simulation iterations.

References

O'Quigley, J. O., Pepe, M., and Fisher, L. (1990). Continual reassessment method: A practical design for phase I clinical trials in cancer. Biometrics 46:33-48.

Cheung, Y. K. (2011). Dose Finding by the Continual Reassessment Method. New York: Chapman & Hall/CRC Press.

Examples

# NOT RUN {
# It may take quite long for large num_sims
prior  <- c(0.1, 0.3, 0.5)
target <- 0.2
true_tox <- c(0.05, 0.2, 0.35)
first_dose <- 1
num_sims <- 5  # recommend doing 5000 simulations for the final design
obswin = 80

applied_titecrmts_sim(true_tox = true_tox, prior = prior, target = target,
                      max_sample_size = 21, num_sims = num_sims,
                      cohort_size = 3, obswin = obswin, minfu = 20,
                      recrate = 3, initdes = c(rep(1, 3), rep(2, 3), rep(3, 15)),
                      dose_func = applied_titecrm)
                      
# }