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