# NOT RUN {
# impute four variables at once (default)
imp <- mice(nhanes, m = 1, maxit = 1, print = FALSE)
imp$predictorMatrix
# impute two by two
data1 <- nhanes[, c("age", "bmi")]
data2 <- nhanes[, c("hyp", "chl")]
imp1 <- mice(data1, m = 2, maxit = 1, print = FALSE)
imp2 <- mice(data2, m = 2, maxit = 1, print = FALSE)
# Append two solutions
imp12 <- cbind(imp1, imp2)
# This is a different imputation model
imp12$predictorMatrix
# Append the other way around
imp21 <- cbind(imp2, imp1)
imp21$predictorMatrix
# Append 'forgotten' variable chl
data3 <- nhanes[, 1:3]
imp3 <- mice(data3, maxit = 1,m = 2, print = FALSE)
imp3a <- cbind(imp3, chl = nhanes$chl)
# Of course, chl was not imputed
head(complete(imp3a))
# Note: If one of the arguments is a data.frame
# we need to explicitly call mice:::cbind.mids()
imp3b <- mice:::cbind.mids(imp3, data.frame(chl = nhanes$chl))
# }
Run the code above in your browser using DataLab