# \donttest{
design <- getDesignOptimalConditionalErrorFunction(
alpha = 0.025, alpha1 = 0.001, alpha0 = 0.5, delta1 = 0.25,
useInterimEstimate = FALSE,
conditionalPower = 0.9, likelihoodRatioDistribution = "maxlr",
firstStageInformation = 10
)
# Simulate under the null hypothesis and for a mean difference of 0.5
getSimulationResults(
design = design, alternative = c(0, 0.5)
)
# }
Run the code above in your browser using DataLab