This function gives the detection probability for t
grab samples and given acceptance number under systematic or random sampling methods. This function is also used to calculate the detection probability for primary increments selection by setting the number of primary increments as one.
prob_detect(c, r, t, d, p, N, method)
acceptance number
number of primary increments in a grab sample or grab sample size
number of grab samples
serial correlation of contamination between the primary increments
limiting fraction or proportion of contaminated increments
length of the production
what sampling method we have applied such as 'systematic'
or 'random'
selection methods
Probability of detection in all seleceted grab samples
The detection probability of entire selected grab samples is given by, $$P_D=1-[P(S_t=0)+P(S_t=1)+\cdots +P(S_t=c)]$$
c <- 1
r <- 25
t <- 30
d <- 0.99
p <- 0.005
N <- 1e9
method <- 'systematic'
prob_detect(c, r, t, d, p, N, method)
#> [1] 0.02004455