imp <- mice(nhanes, print = FALSE, seed = 16117)
fit <- with(imp, lm(chl ~ age + hyp + bmi))
# input: mira object
pool.r.squared(fit)
pool.r.squared(fit, adjusted = TRUE)
# input: mipo object
est <- pool(fit)
pool.r.squared(est)
pool.r.squared(est, adjusted = TRUE)
Run the code above in your browser using DataLab