R/canbe.numeric.R

Defines functions canbe.numeric

canbe.numeric <- function(x){
    if (!is.character(x)) x <- as.character(x)
    u <- x[!is.na(x) & x!="NA"]
    test <- suppressWarnings(as.numeric(u))
    if (any(is.na(test)))
        FALSE
    else
        TRUE
}
tagteam/Publish documentation built on April 13, 2025, 6:22 a.m.