R/rmNArows.R

In galacticpolymath/GPpub: Galactic Polymath Lesson Publishing Tools

#' rmNArows
#'
#' Get rid of rows from a data frame that are entirely NA
#'
#' @param d the data frame you want to filter
#' @return filtered x data frame
#' @export
#'
rmNArows<-function(d){
  goodRows<-apply(d,1,function(x) sum(is.na(x))!=ncol(d))
  d[goodRows,]
}