MISSING_INFO(airquality)
# add NA values to the Rosenberg Self-Esteem scale items, for illustration
data_RSE_missing <- data_RSE
data_RSE_missing[matrix(rbinom(prod(dim(data_RSE_missing)), size=1, prob=.3)==1,
nrow=dim(data_RSE_missing)[1])] <- NA
MISSING_INFO(data_RSE_missing)
Run the code above in your browser using DataLab