# List of all parameters
parameters = list()
# Endpoint type
parameters$endpoint_type = "Normal"
# Direction of beneficial effect
parameters$direction = "Lower"
# Number of dose-placebo comparisons
parameters$n_comparisons = 1
# Number of endpoints
parameters$n_endpoints = 3
# Number of enrolled patients (placebo, experimental treatment)
parameters$sample_size = c(190, 190)
# Patient dropout rate
parameters$dropout_rate = 0.05
parameters$control_mean = c(0, 0, 0)
parameters$treatment_mean = c(-0.3, -0.3, -0.3)
parameters$control_sd = c(1, 1, 1)
parameters$treatment_sd = c(1, 1, 1)
# Endpoint correlation matrix
parameters$endpoint_correlation = matrix(c(1, 0.4, 0.4,
0.4, 1, 0.4,
0.4, 0.4, 1), 3, 3)
# Multiple testing procedure
parameters$mult_test = "Holm"
# Overall one-sided Type I error rate
parameters$alpha = 0.025
# Number of simulations
parameters$nsims = 100
# Number of cores for parallel calculations
parameters$ncores = 1
# Run simulations to perform power calculations
results = MultAdj(parameters)
# Generate a simulation report (remove tempfile)
GenerateReport(results,
tempfile("MultAdj Multiple endpoints.docx",
fileext=".docx"))
Run the code above in your browser using DataLab