tests/testthat/test-auxilliary.R

library(ghypernet)

test_that("check_specs returns right values for unipartite adj", {
  expect_equal(ghypernet:::check_specs.matrix(adj_karate), c('directed'=FALSE,'selfloops'=FALSE,'bipartite'=FALSE))
})

test_that("check_specs returns right values for bipartite incidence", {
  expect_equal(ghypernet:::check_specs.matrix(adj_karate[1:15,16:34]), c('directed'=TRUE,'selfloops'=FALSE,'bipartite'=TRUE))
})

Try the ghypernet package in your browser

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

ghypernet documentation built on Oct. 15, 2021, 5:14 p.m.