---
title: "Daedalus features in development"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Daedalus features in development}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

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

```{r setup}
library(daedalus)
```

This vignette is intended as a visual check on _daedalus_ features in development.

```{r}
output <- daedalus2("GBR", "influenza_2009")

plot(colSums(output$S))
plot(colSums(output$E))
plot(colSums(output$Is))
plot(colSums(output$Ia))
plot(colSums(output$H))
plot(colSums(output$R))
plot(colSums(output$D))
```

This should be a curve and not monotonically increasing.

```{r}
plot(colSums(output$new_inf))
plot(colSums(output$new_hosp))
```