Update plotmortalitybystate.R