sir.app function

Launch a shiny-app simulating the SIR model