# NOT RUN {
design <- getDesignInverseNormal(kMax = 2)
data1 <- getDataset(
n = c(20, 30),
means = c(50, 51),
stDevs = c(130, 140)
)
data2 <- getDataset(
n1 = c(22, 13, 22, 13),
n2 = c(22, 11, 22, 11),
means1 = c(1, 1.1, 1, 1),
means2 = c(1.4, 1.5, 1, 2.5),
stds1 = c(1, 2, 2, 1.3),
stds2 = c(1, 2, 2, 1.3))
stageResults <- getStageResults(
getDesignGroupSequential(kMax = 4),
dataInput = data2, stage = 2, directionUpper = FALSE)
getConditionalPower(stageResults, thetaH1 = -0.4,
nPlanned = c(64, 64), assumedStDev = 1.5, allocationRatioPlanned = 3)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab