A subset of the serological dataset of Varicella-Zoster Virus (VZV) and Parvovirus B19 in Belgium where only individuals living in Flanders were selected
Format
A data frame with 2 variables:
- age
Age of individual
- seropositive
If the individual is seropositive or not
Source
Thiry, N., Beutels, P., Shkedy, Z. et al. The seroepidemiology of primary varicella-zoster virus infection in Flanders (Belgium). Eur J Pediatr 161, 588-593 (2002). doi:10.1007/s00431-002-1053-2
Examples
# Reproduce Fig 4.1 (upper right panel), p. 63
library(dplyr)
#>
#> Attaching package: ‘dplyr’
#> The following objects are masked from ‘package:stats’:
#>
#> filter, lag
#> The following objects are masked from ‘package:base’:
#>
#> intersect, setdiff, setequal, union
df <- hav_be_2002 %>%
group_by(age) %>%
summarise(pos = sum(seropositive), tot = n())
plot(
df$age, df$pos / df$tot,
pty = "s", cex = 0.06 * df$tot, pch = 16, xlab = "age",
ylab = "seroprevalence", xlim = c(0, 86), ylim = c(0, 1)
)
