S1Code-Coinfection_Model_Code.R