# NOT RUN {
## EXAMPLE 1:
## The population size in a provincial area is 193,000. In a given two-
## week period 7764 individuals have been tested for COVID-19 using an
## approved PCR test which is believed to have a diagnostic sensitivity of
## 0.85. All individuals have returned a negative result. What is the
## probability that the prevalence of COVID-19 in this population is less
## than or equal to 100 cases per 100,000?
rsu.sep(N = 193000, n = 7764, pstar = 100 / 100000, se.u = 0.85)
## If all of the 7764 individuals returned a negative test we can be more than
## 99% confident that the prevalence of COVID-19 in the province is less
## than 100 per 100,000.
## EXAMPLE 2:
## What is the probability that the prevalence of COVID-19 is less than or
## equal to 10 cases per 100,000?
rsu.sep(N = 193000, n = 7764, pstar = 10 / 100000, se.u = 0.85)
## If all of the 7764 individuals returned a negative test we can be 48%
## confident that the prevalence of COVID-19 in the province is less
## than 10 per 100,000.
# }
Run the code above in your browser using DataLab