Getting started

Get some data:

tmp = rsurvstat::get_timeseries(
  diseases$Adenovirus, 
  "Incidence", 
  age_group = age_groups$zero_fifteen)
#> Making survstat request...Data downloaded.

Re-band age groups and plot


tmp2 = tmp %>% dplyr::filter(!is.na(date))
ggplot(tmp2, aes(x=date, y=incidence)) + geom_line() + facet_wrap(~age_cat)