tests/testthat/test-GO.R

library(GOSemSim)
library(GO.db)

context("GO")

test_that("parent node", {
    goid <- 'GO:0004022'
    x <- as.list(GOSemSim:::getParents('MF')[goid])
    expect_equal(names(x),goid)

    pid <- x[[1]]
    expect_true( goid %in% as.list(GOMFCHILDREN[pid])[[1]] )
})
YuLab-SMU/GOSemSim documentation built on Nov. 2, 2022, 2:57 p.m.