if (FALSE) {
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