R/clean.na.R

clean.na <- function (x, margin, drop = FALSE)  {
  ind <- apply(x, margin, function(xx) all(!is.na(xx)))
  if (margin == 1)   x[ind, , drop = drop]
  else x[, ind, drop = drop]
}

Try the cwhmisc package in your browser

Any scripts or data that you put into this service are public.

cwhmisc documentation built on May 1, 2019, 7:55 p.m.