A shiny app for teaching dynamic programming - A Susceptible Infected Recovered (SIR) Model