pool_lr <- psfmi_lr(data=lbpmilr, p.crit = 1, direction="FW", nimp=10, impvar="Impnr",
Outcome="Chronic", predictors=c("Radiation"), cat.predictors = ("Satisfaction"),
int.predictors = NULL, spline.predictors="Tampascale", nknots=3, method="D1")
res_compare <- pool_compare_models(pool_lr, compare.predictors = c("Pain", "Duration",
"Function"), cutoff = 0.4)
res_compare
Run the code above in your browser using DataLab