balancedSafeDesign <- designSafeTwoProportions(na = 1,
nb = 1,
nBlocksPlan = 20)
simulateCoverageDifferenceTwoProportions(successProbabilityA = 0.2,
trueDelta = 0,
safeDesign = balancedSafeDesign,
M = 100,
precision = 20,
numberForSeed = 1082021)
Run the code above in your browser using DataLab