tests/testthat/test-Wang.R

library(GOSemSim)

context("Wang")

test_that("Wang's method", {
    hsGO <- godata('org.Hs.eg.db', ont="MF", computeIC=FALSE)
    x <- goSim("GO:0004022", "GO:0005515", semData=hsGO, measure="Wang")
    expect_true(x >= 0 && x<=1)
})
YuLab-SMU/GOSemSim documentation built on Nov. 2, 2022, 2:57 p.m.