R/codeCountA.R

Defines functions codeCountA

codeCountA <- function(expr) {
    ee <- callAsList(expr)
    table(rapply(ee,
        function(x) deparse(x)))
}
johnmchambers/XRexamples documentation built on May 19, 2019, 5:16 p.m.