# NOT RUN {
# Examine different group sizes to determine
# the shortest expected width.
gtWidth(n = 20, s = seq(from = 1, to = 200, by = 10),
p = 0.01, alternative = "less", method = "CP")
# Calculate the expected width of the confidence
# interval with a group size of 1 (individual testing).
gtWidth(n = 20, s = 1, p = 0.005, alternative = "less", method = "CP")
# }
Run the code above in your browser using DataLab