# \donttest{
library(dplyr)
library(ggplot2)
library(magrittr)
xs_data <-
serocalculator_example("example_pop_data.csv") %>%
read.csv() %>%
as_pop_data()
xs_data %>% autoplot(strata = "catchment", type = "density")
xs_data %>% autoplot(strata = "catchment", type = "age-scatter")
# }
Run the code above in your browser using DataLab