# NOT RUN {
# The default two-stage design
des <- des_two_stage()
# Its operating characteristics under the uninteresting and interesting
# scenarios
sim <- sim(des)
# The same operating characteristics, conditioning on the trial ending in
# stage 2
sim <- sim(des, k = 2)
# }
Run the code above in your browser using DataLab