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 April 23, 2023, 9:15 p.m.