designObj <- designSafeZ(meanDiffMin=0.6, alpha=0.008,
alternative="greater", testType="twoSample",
ratio=1.2)
set.seed(1)
x <- rnorm(100)
y <- rnorm(100)
safeZTest(x, y, designObj=designObj) #
safeZTest(1:10, y = c(7:20), pilot=TRUE, alternative="less") # s = 7.7543e+20 > 1/alpha
Run the code above in your browser using DataLab