tests/testthat/test_is.connected.R

test_that("is.connected works", {
  h <- hypergraph_from_edgelist(list(1:2,2:3,3:4))

  expect_true(hypergraph.is.connected(h))

  h <- hypergraph_from_edgelist(list(1:2,2:3,4:5))
  expect_false(hypergraph.is.connected(h))


})

Try the HyperG package in your browser

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

HyperG documentation built on March 4, 2021, 5:06 p.m.