# List of all parameters
parameters = list()
# Endpoint type
parameters$endpoint_type = "Binary"
# Direction of favorable outcome
parameters$direction = "Higher"
# Number of enrolled patients (control, three treatments)
parameters$sample_size = c(75, 75, 75, 75)
# Dropout rate
parameters$dropout_rate = 0.05
# Response rate in the control arm
parameters$control_rate = 0.35
# Response rates in the treatment arms
parameters$treatment_rate = c(0.45, 0.5, 0.55)
# Information fraction
parameters$info_frac = 0.3
# 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
# Remove this parameter in your code:
parameters$withoutCharts = TRUE
# Run simulations to compute characteristics of the futility stopping rule
results = FutRule(parameters)
# Generate a simulation report (remove tempfile)
GenerateReport(results,
tempfile("FutRule Binary endpoint.docx", fileext=".docx"))
Run the code above in your browser using DataLab