R/sumna.R

In alastairrushworth/mlblitz: ML: getting it done.

sumna_slow <- function(v) sum(is.na(v))

sumna <- function(v){
  if(any(class(v) %in% c("numeric", "character", "integer", "logical", "factor"))){
    if(any(class(v) == "numeric"))   nasum <- na_numeric(v)
    if(any(class(v) == "character")) nasum <- na_character(v)
    if(any(class(v) == "integer"))   nasum <- na_integer(v)
    if(any(class(v) == "factor"))    nasum <- na_integer(v)
    if(any(class(v) == "logical"))   nasum <- na_logical(v)
  } else {
    nasum <- sumna_slow(v)
  }
  return(nasum)
}