tests/testthat/test-adjacency.R

context("test-adjacency")

test_that("adjacency works", {
  adja <- adjacency(Info)
  expect_false(any(adja > 1))
  expect_true(isSymmetric(adja))
})
llrs/GSEAdv documentation built on May 29, 2019, 6 p.m.