R/canbeNumeric.R

In sbgraves237/Ecfun: Functions for 'Ecdat'

Defines functions canbeNumeric

Documented in canbeNumeric

canbeNumeric <- function(x){
  ((mode(x) == 'numeric') & 
    (!('levels' %in% names(attributes(x)))) )
}