server.R

This is the server part of the shiny application for SIR model