Create plotmortalitiesnpatient.R