Multiple imputation

5개의 데이터셋 생성 이후 3번째 데이터셋 추출 예제
(복수의 데이터셋의 평균으로 대체도 가능)


.install.packages('mice')
.library(mice)
.data("nhanes")
.md.pattern(nhanes)
.imp <- mice(nhanes, seed=1234, m=5)
.densityplot(imp)
.imp3 <- complete(imp, 3)
.write.csv(imp3, "imp3.csv")