perf <- pool_performance(data=lbpmilr, nimp=5, impvar="Impnr",
formula = Chronic ~ Gender + Pain + Tampascale +
Smoking + Function + Radiation + Age + factor(Carrying),
cal.plot=TRUE, plot.method="mean",
groups_cal=10, model_type="binomial")
perf$ROC_pooled
perf$R2_pooled
Run the code above in your browser using DataLab