Below, you will find code for creating a shiny flex-dashboard for simple SIR open and closed population models.
--- title: "Simulating SIR Models in a Closed and Open Population" date: "`r format(Sys.time(), '%B %d, %Y')`" editor_options: chunk_output_type: console output: flexdashboard::flex_dashboard runtime: shiny --- {r setup, include=FALSE} knitr::opts_chunk$set(echo = F, warning = F, message = F, fig.align = 'center', results = 'hide', fig.keep = 'all') library(tidyverse) library(cowplot) # https://rmarkdown.rstudio.com/flexdashboard/layouts.html#multiple_pages {r} #.............................................................. # Open Model #.
Below, you will find code for creating a shiny flex-dashboard for performing simple stochastic simulations with one time-interruption corresponding to an intervention (unrealistically simulated all at once). Code relies on the excellent EpiModel R package.
--- title: "Stochastic Simulations for Flattening the Curve" date: "`r format(Sys.time(), '%B %d, %Y')`" editor_options: chunk_output_type: console output: flexdashboard::flex_dashboard runtime: shiny --- {r setup, include=FALSE} knitr::opts_chunk$set(echo = F, warning = F, message = F, fig.align = 'center', results = 'hide', fig.