lbpmicox1 <- subset(psfmi::lbpmicox, Impnr==1) # extract first imputed dataset
res_single <- coxph_fw(data=lbpmicox1, p.crit = 0.05, formula=Surv(Time, Status) ~
Previous + Radiation + Onset + Age + Tampascale +
Pain + JobControl + factor(Satisfaction),
spline.predictors = "Function",
nknots = 3)
res_single$RR_model_final
res_single$multiparm_final
Run the code above in your browser using DataLab