vzv_be_2001_2003 | R Documentation |
The survey is the same as the one used to study the seroprevalence of parvovirus B19 in Belgium, as described above.
vzv_be_2001_2003
A data frame with 4 variables:
Age of individual
If the individual is seropositive or not
Gender of individual
VZV milli international units per ml
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. \Sexpr[results=rd]{tools:::Rd_expr_doi("doi:10.1017/S0950268807009661")}
# 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)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.