VZV serological data from Belgium from 2001-2003 (line listing)
Source:R/data.R
vzv_be_2001_2003.Rd
The survey is the same as the one used to study the seroprevalence of parvovirus B19 in Belgium, as described above.
Format
A data frame with 4 variables:
- age
Age of individual
- seropositive
If the individual is seropositive or not
- gender
Gender of individual
- VZVmIUml
VZV milli international units per ml
Source
MOSSONG, J., N. HENS, V. FRIEDERICHS, I. DAVIDKIN, M. BROMAN, B. LITWINSKA, J. SIENNICKA, et al. "Parvovirus B19 Infection in Five European Countries: Seroepidemiology, Force of Infection and Maternal Risk of Infection." Epidemiology and Infection 136, no. 8 (2008): 1059-68. doi:10.1017/S0950268807009661
Examples
# Reproduce Fig 4.7 (right panel), p.71
library(dplyr)
df <- vzv_be_2001_2003 %>%
mutate(age = round(age)) %>%
group_by(age) %>%
summarise(pos = sum(seropositive), tot = n())
plot(df$age, df$pos / df$tot,
cex = 0.036 * df$tot, pch = 19, xlab = "age", ylab = "seroprevalence",
xlim = c(0, 45), ylim = c(0, 1)
)