```
# NOT RUN {
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 DataCamp Workspace