# NOT RUN {
# the default setting of our paper's strong biomarker effect
res <- designCTPB()
res$plot_power # to see 3-d plot for the optimal power versus r2 and r3
res$plot_alpha # to see 3-d plot for the optimal alpha versus r2 and r3
res$opt_r_split # to see the optimal cutoff of the sub-population,
#and here suggesting not cutoff at the 2-nd sub-population
res$opt_power
res$opt_alpha_split
# }
Run the code above in your browser using DataLab