inst/unitTests/test_readGeneSummaries.R

test_readGeneSummaries <- function() {
    checkEquals(sum(sapply(firmaAnalysis(useToyData=TRUE), is.numeric) == TRUE), ncol(readGeneSummaries(useToyData=TRUE)))
    checkTrue(!anyNA(readGeneSummaries(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.