if (FALSE) {
result <- vimpute(sleep, method = "ranger", m = 5,
boot = TRUE, uncert = "normalerror")
mids_obj <- vim_as_mids(result)
# Now use mice infrastructure:
# fits <- with(mids_obj, lm(Sleep ~ Dream + Span))
# mice::pool(fits)
}
Run the code above in your browser using DataLab