# NOT RUN {
# The default two-stage design
des <- des_two_stage()
# Its terminal points across stages 1 and 2
term <- terminal(des)
# The plot of them
plot(term)
# Its terminal points from stage 2 only
term <- terminal(des, 2)
# The plot of them
plot(term)
# }
Run the code above in your browser using DataLab