inst/unitTests/test_mCSEATest.R

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)
}
jordimartorell/mCSEA documentation built on Feb. 26, 2020, 12:55 a.m.