if (FALSE) {
#############################################################################
# EXAMPLE 1: Imputation of NHANES data using mice package
#############################################################################
library(mice)
library(Amelia)
data(nhanes,package="mice")
set.seed(566) # fix random seed
# imputation with mice
imp <- mice::mice(nhanes, m=7)
# conversion to amelia object
amp <- miceadds::datlist2Amelia(datlist=imp)
str(amp)
plot(amp)
print(amp)
summary(amp)
}
Run the code above in your browser using DataLab