## 90%/95% 1-sided and 2-sided negative hypergeometric
## tolerance intervals for a future number of 300 successes
## when the universe is of size 1000. The estimates are
## based on having drawn 425 in another sample to achieve
## 200 successes.
neghypertol.int(425, 200, 1000, m = 300, alpha = 0.05,
P = 0.95, side = 1, method = "LS")
neghypertol.int(425, 200, 1000, m = 300, alpha = 0.05,
P = 0.95, side = 1, method = "CC")
neghypertol.int(425, 200, 1000, m = 300, alpha = 0.05,
P = 0.95, side = 2, method = "LS")
neghypertol.int(425, 200, 1000, m = 300, alpha = 0.05,
P = 0.95, side = 2, method = "CC")
Run the code above in your browser using DataLab