if (FALSE) { # require("mice")
data("nhanes2", package = "mice")
imp <- mice::mice(nhanes2, printFlag = FALSE)
comparisons <- lapply(1:5, function(i) {
m <- lm(bmi ~ age + hyp + chl, data = mice::complete(imp, action = i))
test_predictions(m, "age")
})
pool_comparisons(comparisons)
}
Run the code above in your browser using DataLab