inst/unitTests/test_geneSetCorrelation.R

test_geneSetCorrelation <- function() {
    data(geneSets)
    data(geneAnnotation)
    checkTrue(!anyNA(geneSetCorrelation(geneSets, geneAnnotation, readGeneSummaries(useToyData=TRUE), aberrantExonUsage(1.0, firmaAnalysis(useToyData=TRUE)), 20)[, 3]))
    checkTrue(!anyNA(geneSetCorrelation(geneSets, geneAnnotation, readGeneSummaries(useToyData=TRUE), aberrantExonUsage(1.0, firmaAnalysis(useToyData=TRUE)), 20)[, 4]))
    checkTrue(!anyNA(geneSetCorrelation(geneSets, geneAnnotation, readGeneSummaries(useToyData=TRUE), aberrantExonUsage(1.0, firmaAnalysis(useToyData=TRUE)), 20)[, 5]))
    checkEquals(sum(sapply(geneSetCorrelation(geneSets, geneAnnotation, readGeneSummaries(useToyData=TRUE), aberrantExonUsage(1.0, firmaAnalysis(useToyData=TRUE)), 20), is.numeric) == TRUE), 4)
    checkTrue(all(geneSetCorrelation(geneSets, geneAnnotation, readGeneSummaries(useToyData=TRUE), aberrantExonUsage(1.0, firmaAnalysis(useToyData=TRUE)), 20)[, 5] > -1))
    checkTrue(all(geneSetCorrelation(geneSets, geneAnnotation, readGeneSummaries(useToyData=TRUE), aberrantExonUsage(1.0, firmaAnalysis(useToyData=TRUE)), 20)[, 5] < 1))
}

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.