res <- PsProg_binary(RRgo = 0.8 ,n2 = 50 ,alpha = 0.05, beta = 0.1,
p0 = 0.6, p11 = 0.3, p12 = 0.5, step1 = 1, step2 = 0.95,
strategy = 3, case = 31)
Run the code above in your browser using DataLab