---
title: "Getting started"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Getting started}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r setup, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(ggplot2)
library(rsurvstat)
```

Get some data:

```{r}
tmp = rsurvstat::get_timeseries(
  diseases$Adenovirus, 
  "Incidence", 
  age_group = age_groups$zero_fifteen)
```

Re-band age groups and plot

```{r}

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