## Comparison of 95%/99% 1-sided tolerance limits with the
## uniformly most accurate approach when there are 10 trials
## (resulting in 50 failures) before 3 successes are reached for
## each trial.
umatol.int(x = 50, n = 10, N = 3, dist = "NegBin")
negbintol.int(x = 50, n = 10, N = 3, side = 1)
## 95%/99% 1-sided tolerance limits and 2-sided tolerance
## interval for the same setting above, but when we are
## interested in a future experiment that requires 20 successes
## be reached for each trial.
negbintol.int(x = 50, n = 10, N = 3, m = 20, side = 1)
negbintol.int(x = 50, n = 10, N = 3, m = 20, side = 2)
Run the code above in your browser using DataLab