# NOT RUN {
### Design 1
# H0 vs. H1: 17% vs. 40% (4-month PFS)
# that is, S0 = 0.17, and hazard ratio, e.g., delta = 0.517
# x = 4
optimal_TwoStage(alphacutoff = 0.1, powercutoff = 0.8, S0 = 0.17,
x = 4, ta = 6, tf = 6, delta = 0.517, ntrial = 10)
### Design 2
# H0 vs. H1: 17% vs. 30% (4-month PFS)
# that is, S0 = 0.17, and hazard ratio, e.g., delta = 0.679
# x = 4
optimal_TwoStage(alphacutoff = 0.1, powercutoff = 0.8, S0 = 0.17,
x = 4, ta = 6, tf = 6, delta = 0.679, ntrial = 10)
# }
Run the code above in your browser using DataLab