inst/unitTests/test_firmaAnalysis.R

test_firmaAnalysis <- function() {
    checkEquals(sum(sapply(firmaAnalysis(useToyData=TRUE), is.numeric) == TRUE), ncol(firmaAnalysis(useToyData=TRUE)))
    checkTrue(!anyNA(firmaAnalysis(useToyData=TRUE)))
}

Try the TIN package in your browser

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

TIN documentation built on Nov. 8, 2020, 5:58 p.m.