tests/testthat/test-measure_over.R

In migraph: Inferential Methods for Multimodal and Other Networks

test_that("over_waves works", {
  res <- over_waves(manynet::fict_potter, manynet::net_components)
  # expect_equal(unname(unlist(c(res))), c(48,52,57,43,54,64))
})

test_that("over_membership works", {
  res <- over_membership(fict_potter, manynet::net_assortativity, 
                         membership = node_in_regular(fict_potter))
  expect_equal(unname(unlist(c(res))), c(0.490201713,NaN))
})