This function calculate the disease severity, as the mean value of severity measurements for diseased units ONLY (leaves, bunches, plants...). The disease severity is the area of a sampling unit affected by the disease, expressed as a percentage of the total area.
Exemples
vec <- c(100, 20, 30, 0, 5, 0, 0)
severity_diseased(vec)
#> [1] 38.75