Update sp_survreg.R