R/fmtcheck.R

Defines functions fmtcheck

Documented in fmtcheck

fmtcheck <-
function (x) 
{
    f1 <- (is.na(x)) * 1
    f2 <- (nchar(x) == 0) * 1
    g <- rep(0, length(x))
    for (i in 0:9) {
        ff <- (str_detect(x, as.character(i))) * 1
        g <- g + ff
    }
    f4 <- (g == 0) * 1
    f5 <- f1 + f2 + f4
}

Try the biogeo package in your browser

Any scripts or data that you put into this service are public.

biogeo documentation built on May 29, 2017, 10:55 a.m.