R/introNAs.R

In mvdalab: Multivariate Data Analysis Laboratory

Defines functions introNAs

Documented in introNAs

introNAs <- function(data, percent = 25) {
  n <- round((nrow(data) * ncol(data)) * (percent / 100))
  inds <- as.matrix(expand.grid(1:nrow(data), 1:ncol(data)))
  inds <- matrix(inds[!is.na(data[inds])], ncol = 2)
  selected <- inds[sample(nrow(inds), n), ]
  data[selected] <- NA
  data
}

Try the mvdalab package in your browser