Interactive 2 host SIR pathogen transmission model with R and shiny