Create survivorship.R