data(NHANES)
summary(NHANES)
## Missing Data overview :
nNA <- sapply(NHANES, function(x)sum(is.na(x)))
cbind(nNA[nNA > 0])
# Which are just these 6 :
Diet.Iron 141
Albumin 252
Serum.Iron 1008
TIBC 853
Transferin 1019
Hemoglobin 759
Run the code above in your browser using DataLab