R/NA.R

In matthiaskaeding/Kaeding: What the package does (short line)

Defines functions frac_NA sum_NA rowsum_NA

Documented in frac_NA rowsum_NA sum_NA

#' Dealing with NAs
#'
#' Doing common tasks with missings
#' @name NA
#' @param x vector
#' @param X data.table
frac_NA <- function(x) mean(is.na(x))
#' @name NA
sum_NA <- function(x) sum(is.na(x))
#' @name NA
rowsum_NA <- function(X) {
  
  out <- integer(nrow(X))
  for(i in seq_along(X)) out <- out + is.na(X[[i]])  
  out

}