balancedSafeDesign <- designSafeTwoProportions(na = 1,
nb = 1,
nBlocksPlan = 30)
optionalStoppingSimulationResult <- simulateOptionalStoppingScenarioTwoProportions(
safeDesign = balancedSafeDesign,
M = 1e2,
thetaA = 0.2,
thetaB = 0.5
)
Run the code above in your browser using DataLab