Create assign.infectivity_d4.R

Modeling infectivity assignment