# List of all parameters
parameters = list()
# Endpoint type
parameters$endpoint_type = "Binary"
# Direction of beneficial effect
parameters$direction = "Higher"
# Number of dose-placebo comparisons
parameters$n_comparisons = 3
# Number of endpoints
parameters$n_endpoints = 1
# Number of enrolled patients (placebo, low dose, medium dose and high dose)
parameters$sample_size = c(110, 110, 110, 110)
# Patient dropout rate
parameters$dropout_rate = 0.2
# Endpoint information
parameters$control_rate = 0.3
parameters$treatment_rate = c(0.5, 0.55, 0.6)
# Multiple testing procedure
parameters$mult_test = "Fixed-sequence"
# Hypothesis testing sequence (the null hypotheses of no effect will be
# tested in the following sequence: H3 [high dose versus placebo], H2 [medium dose
# versus placebo] and H1 [low dose versus placebo])
parameters$sequence = c(3, 2, 1)
# 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 dose-placebo comparisons.docx",
fileext=".docx"))
Run the code above in your browser using DataLab