R script for Disease Ecology Lab 6 -- Vector SIR modesl