r0fun function

Function to calculate R0 from a contact matrix