R/var.is.num.R

var.is.num <- function(x){
  x <- ifelse(is.na(x) | x == '', 1, x)
  y <- all(!is.na(as.numeric(x)))
  return(y)
}
ikkyle/Imisc documentation built on May 18, 2019, 3:42 a.m.