sir code in r. Susceptibles become infected with a rate that depends on