balancedSafeDesign <- designSafeTwoProportions(na = 1,
nb = 1,
nBlocksPlan = 10,
alpha = 0.05)
ya <- c(1,1,1,1,1,1,1,1,0,1)
yb <- c(0,0,0,0,1,0,0,0,0,0)
computeConfidenceBoundsForDifferenceTwoProportions(ya = ya,
yb = yb,
precision = 20,
safeDesign = balancedSafeDesign)
Run the code above in your browser using DataLab