# NOT RUN {
# The default two-stage design
des <- des_two_stage()
# Its probability mass function under the uninteresting and interesting
# scenarios
pmf <- pmf(des)
# The plot of them
plot(pmf)
# The same probability mass functions, conditioning on the trial ending in
# stage 2
pmf <- pmf(des, k = 2)
# The plot of them
plot(pmf)
# }
Run the code above in your browser using DataLab