# compute thresholds for two-stage design with 40% of subjects selected for stage one
# and 10% of markers selected for follow-up in the second stage,
# with an alpha level of 0.05/300000
power.thresh.out <- twoStageNull(pi.samples=0.40, pi.markers=0.10,
alpha.marker=0.05/300000)
power.thresh.out
Run the code above in your browser using DataLab