```
# NOT RUN {
# do default multiple imputation on a numeric matrix
imp <- mice(nhanes)
# obtain first imputated matrix
mat <- complete(imp)
# fill in the third imputation
mat <- complete(imp, 3)
# long matrix with stacked complete data
mat <- complete(imp, 'long')
# long matrix with stacked complete data, including the original data
mat <- complete(imp, 'long', inc=TRUE)
# repeated matrix with complete data
mat <- complete(imp, 'r')
# for numeric data, produces a blocked correlation matrix, where
# each block contains of the same variable pair over different
# multiple imputations.
cor(mat)
# }
```

Run the code above in your browser using DataCamp Workspace