Seroprevalence Calculation

Calculates the seroprevalence considering an age distribution and a reversible catalytic model.

Usage

seroprevalence(ages, A_max, SCR, SRR)

Arguments

ages

Vector with the proportions of different ages in the population (age structure).

A_max

Maximum age considered in the population.

SCR

Seroconversion rate.

SRR

Seroreversion rate.

Value

The total seroprevalence weighted by the age distribution.

Examples

A_max <- 80
age_distribution <- rep(1 / A_max, A_max)
seroprevalence(age_distribution, A_max, 0.03, 0.01)
#> [1] 0.5296451