sysse_finite {freedom}

sysse

Description

Calculate the surveillance system sensitivity for a finite population of herds

Usage

sysse_finite(dp, hse, N)

Arguments

dp

The vector of EPIH for all herds tested in the surveillance system.

hse

The calculated hse for all the herds tested in the surveillance system.

N

The total number of herds in the population.

Details

Takes a vector of the sensitivity of herds tested in the surveillance system and a vector of the effective probability of infection in the herds (EPIH) to calculate the total surveillance system sensitivity for the entire program. This is adjusted for the total number of herds in the population.

Value

A vector (length 1)

Examples

df <- data.frame(id = seq(1:20),
                  n_tested = rpois(20, 6),
                  N = rpois(20, 50),
                  test_Se = 0.3,
                  dp = 0.05)
 ## Calculate the herd level sensitivity for each of these herds. If
 ## the ratio of the number tested to number of animals in the herd
 ## exceeds the threshold then the finite method is used, otherwise the
 ## infinite method is used.
 herd_Se <- hse(df$id,
                df$n_tested,
                df$N,
                df$test_Se,
                df$dp,
                threshold = 0.1)
 ## Calculate the system sensitivity given the testing and sensitivity
 ## in these herds adjusted for the total number of herds in the population:
 sysse_finite(dp = rep(0.10, nrow(herd_Se)),
              hse = herd_Se$HSe,
              N = 100)