Create plotmortalitybystate.R