# sysse_finite: sysse In SVA-SE/freedom: Demonstration of Disease Freedom (DDF)

 sysse_finite R Documentation

## 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)
```

SVA-SE/freedom documentation built on Feb. 1, 2023, 5:50 p.m.