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)
}

Try the mCSEA package in your browser

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

mCSEA documentation built on Nov. 8, 2020, 5:37 p.m.