tests/testthat/test-path_enrich.R

genes=c("ACAA1","SLC6A12")
meta=c("C00002","C00719")
listk=path_enrich("KEGG",meta,genes)
resmeta=listk[[1]];resgene=listk[[2]]

test_that("pathways are found", {
  expect_equal(nrow(resmeta),7)
  expect_equal(nrow(resgene),11)
})
emiliesecherre/famat documentation built on Oct. 17, 2021, 8:42 a.m.