res <- EPsProg23_binary(RRgo = 0.8, n2 = 50, alpha = 0.025, beta = 0.1,
w = 0.6, p0 = 0.3, p11 = 0.3, p12 = 0.5,
in1 = 300, in2 = 600, case = 2, size = "small",
ymin = 0.5)
Run the code above in your browser using DataLab