---
title: "Disease"
author: "Daijiang Li"
includes:
  in_header:
    - \usepackage{lmodern}
output:
  html_document:
    fig_caption: yes
    fig_height: 6
    fig_width: 6
    highlight: tango
    theme: journal
  pdf_document:
    fig_caption: yes
    fig_height: 6
    fig_width: 6
    toc: yes
---

SIR models

```{r fig.width='100%'}
if(!require(shinySIR)) install.packages("shinySIR")
shinySIR:::run_shiny(model = "SIR", 
                     ics = c(S = 99, I = 1, R = 0), 
                     tmax = 100, 
                     showtable = FALSE)
```

Find out $\beta$ and $d$.

