tests/testthat/test_cal_mean_module.R

test_that("can parse example cal_mean_module", {
    data(geneExpress)
    data(module)
    result <- cal_mean_module(geneExpress, module)
    expect_equal( ncol(result) , ncol(geneExpress))
})
huerqiang/GeoTcgaData documentation built on March 21, 2024, 1:42 a.m.