# \donttest{
design <- getDesignInverseNormal(kMax = 2)
data <- getDataset(
n = c( 20, 30),
means = c( 50, 51),
stDevs = c(130, 140)
)
getFinalPValue(getStageResults(design, dataInput = data))
# }
Run the code above in your browser using DataLab