Create sp_survreg.R