use rms surv functions