R/as.numeric.nocheck.R

as.numeric.nocheck <-
function (x,...)
{
    old.warn <- options(warn = -1)
    on.exit(options(old.warn))
    y <- as.numeric(as.character(x))
    return(y)
}
Auburngrads/SMRD documentation built on Sept. 14, 2020, 2:21 a.m.