R/naCounter.R

In dougmet/simToolsBG: Simulation Analysis Tools

#' Count NAs in a vector
#'
#' @param x A vector
#'
#' @return Number of NAs in x
#'
#' @examples
#' \dontrun{
#'   sumNa(airquality$Ozone)
#' }
sumNa <- function(x) {
  sum(is.na(x))
}


#' Count all NAs in a data set
#'
#' @param data A data.frame or matrix
#'
#' @return Vector of NA counts
#' @export
#'
#' @examples
#' naCounter(airquality)
#'
naCounter <- function(data) {
  stopifnot(is.matrix(data) | is.data.frame(data))
  apply(data, 2, sumNa)
}