tests/testthat/test_columnContribution.r

context('columnContribution function')


test_that('Column Contribution ratio is correct', {
    col <- colnames(dat)[1]

    res <- ActivePathways(dat, gmt, significant = 1)
    res_just_column <- ActivePathways(dat[, 1, drop = FALSE], gmt, significant = 1)
    expect_equal(res_just_column$overlap, res[[paste0("Genes_", col)]])
})

Try the ActivePathways package in your browser

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

ActivePathways documentation built on Sept. 11, 2024, 8:45 p.m.