# List of all parameters
parameters = list()
# Endpoint type
parameters$endpoint_type = "Normal"
# Direction of favorable outcome
parameters$direction = "Higher"
# Number of enrolled patients (control, treatment)
parameters$sample_size = c(120, 120)
# Patient dropout rate
parameters$dropout_rate = 0.05
# Mean and SD in the control arm
parameters$control_mean = 0
parameters$control_sd = 1
# Mean and SD in the treatment arm
parameters$treatment_mean = 0.3
parameters$treatment_sd = 1
# Information fractions at IA1, IA2, FA (before sample size adjustment)
# and FA (after sample size adjustment)
parameters$info_frac = c(0.4, 0.6, 1, 1.3)
# Futility threshold for conditional power at IA1
parameters$futility_threshold = 0.1
# Promising interval for conditional power at IA2
parameters$promising_interval = c(0.5, 0.9)
# Target conditional power for increasing the sample size at IA2
parameters$target_power = 0.9
# 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 = ADSSMod(parameters)
# Generate a simulation report (remove tempfile)
GenerateReport(results,
tempfile("ADSSMod Normally distributed endpoint.docx", fileext=".docx"))
Run the code above in your browser using DataLab