# List of all parameters
parameters = list()
# Endpoint type
parameters$endpoint_type = "Time-to-event"
# Direction of favorable outcome
parameters$direction = "Higher"
# Number of enrolled patients (control, two treatments)
parameters$sample_size = c(180, 180, 180)
# Annual patient dropout rate
parameters$dropout_rate = 0.05
# Median time in the control arm
parameters$control_time = 7.5
# Median times in the treatment arms
parameters$treatment_time = c(10.5, 10.5)
# Target event count at FA
parameters$event_count = 450
# Information fractions at IA1, IA2, FA
parameters$info_frac = c(0.4, 0.6, 1)
# Futility threshold for conditional power at IA1
parameters$futility_threshold = 0.1
# Enrollment period
parameters$enrollment_period = 24
# Median enrollment time
parameters$enrollment_parameter = 18
# Number of treatments to be selected at the second interim analysis
parameters$treatment_count = 1
# Multiple testing procedure to be used in the trial
parameters$mult_test = "Hochberg"
# One-sided alpha level
parameters$alpha = 0.025
# Number of simulations, you should prefer more
parameters$nsims = 100
# Number of cores for parallel calculations
parameters$ncores = 1
# Run simulations to compute operating characteristics
results = ADTreatSel(parameters)
# Generate a simulation report (remove tempfile)
GenerateReport(results,
tempfile("ADTreatSel Time-to-event endpoint.docx", fileext=".docx"))
Run the code above in your browser using DataLab