R/nvalid.R

nvalid <- function(x){
  x <- unknownToNA(x, '')
  x <- cbind(x, rep(NA, nrow(data.frame(x))))
  n.valid <- rowSums(ifelse(!is.na(x), 1, 0), na.rm=TRUE)
  return(n.valid)}
ikkyle/Imisc documentation built on May 18, 2019, 3:42 a.m.