This function calculate the disease intensity, as the mean value of severity measurements. The disease intensity is the amount of disease present in the population, expressed in percentage.
Exemples
vec <- c(100, 20, 30, 0, 5, 0, 0)
intensity(vec)
#> [1] 22.14286