tests/testthat/test-calculateSimMatrix.R

go_analysis <- read.delim(system.file("extdata/example.txt", package="rrvgo"))
simMatrix <- calculateSimMatrix(go_analysis$ID, orgdb="org.Hs.eg.db", ont="BP", method="Rel")

test_that("calculateSimMatrix returns a squared matrix", {
  expect_is(simMatrix, "matrix")
  expect_equal(nrow(simMatrix), ncol(simMatrix))
})

Try the rrvgo package in your browser

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

rrvgo documentation built on Nov. 8, 2020, 6:17 p.m.