if (FALSE) {
set.seed(10)
(x <- sample(c(rep(NA, 4), 1:10), 20, rep=T))
NAer(x)
set.seed(10)
(y <- data.frame(matrix(x, 5, 4)) )
NAer(y)
NAer(y, "MISSING")
}
Run the code above in your browser using DataLab