tests/testthat/test-ghype.R

library(ghypernet)

test_that("scm returns right df", {
  expect_equal(scm(adj_karate)$df,c('directed'=nrow(adj_karate)))
  expect_equal(scm(adj_karate[1:15,16:25])$df,c('directed'=25))
})

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.