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)
})

Try the GOSemSim package in your browser

Any scripts or data that you put into this service are public.

GOSemSim documentation built on Nov. 8, 2020, 4:52 p.m.