# NOT RUN {
### Compare table 1 in Swallow(1985),885:
estDesign(n=10, smax=100, p.tr=0.001)
estDesign(n=10, smax=100, p.tr=0.01)
estDesign(n=25, smax=100, p.tr=0.05)
estDesign(n=40, smax=100, p.tr=0.25)
estDesign(n=200, smax=100, p.tr=0.3)
# }
Run the code above in your browser using DataLab