inst/unitTests/test_mCSEATest.R

In mCSEA: Methylated CpGs Set Enrichment Analysis

test_mCSEATest <- function() {
    set.seed(123)
    checkEqualsNumeric(mCSEATest(myRank[1:100], betaTest, phenoTest, 
                                    regionsTypes = "p", platform = "E")[["promoters"]]["PKN3","ES"],
                    0.6900556, tolerance=1.0e-6)
}