# NOT RUN {
# Two-stage safety design with pu (p0) = 0.33 vs. pa (p1) = 0.20
gen2simon(0.33, 0.20, 0.05, 0.20)
gen2simon(0.33, 0.20, 0.05, 0.10, nmax=150)
# Two-stage efficacy design with pu (p0) = 0.67 vs. pa (p1) = 0.80
gen2simon(0.67, 0.80, 0.05, 0.20)
gen2simon(0.67, 0.80, 0.05, 0.10, nmax=150)
# save, print and plot
safety2 = gen2simon(0.33, 0.20, 0.05, 0.20)
print(safety2)
plot(safety2)
# }
Run the code above in your browser using DataLab