tests/testthat/test-measure_holes.R

In netrics: Many Ways to Measure and Classify Membership for Networks, Nodes, and Ties

test_that("redundancy is reported correctly", {
  expect_equal(as.numeric(length(node_by_redundancy(ison_brandes))),
               as.numeric(net_nodes(ison_brandes)))
  expect_equal(as.numeric(length(node_by_redundancy(ison_southern_women))),
               as.numeric(net_nodes(ison_southern_women)))
  expect_named(node_by_redundancy(ison_southern_women))
})

test_that("effective size is calculated and reported correctly", {
  expect_equal(as.numeric(length(node_by_effsize(ison_brandes))),
               as.numeric(net_nodes(ison_brandes)))
  expect_equal(length(node_by_effsize(ison_southern_women)),
               c(net_nodes(ison_southern_women)))
  expect_named(node_by_effsize(ison_southern_women))
  expect_equal(unname(node_by_effsize(ison_southern_women)[1:3]), c(2.5,1.38,2.46), tolerance = 0.01)
})

test_that("efficiency is reported correctly", {
  expect_equal(length(node_by_efficiency(ison_brandes)), c(net_nodes(ison_brandes)))
  expect_equal(length(node_by_efficiency(ison_southern_women)),
               c(net_nodes(ison_southern_women)))
})

test_that("constraint scores are reported correctly for two-mode networks",{
  res <- node_by_constraint(ison_southern_women)
  expect_equal(top3(res), c(0.2782, 0.3071, 0.2965))
  expect_output(print(res), "Evelyn")
  # expect_named(node_constraint(ison_southern_women)[1:3], c("Evelyn", "Laura", "Theresa"))
})

test_that("constraint scores are reported correctly for one-mode notworks",{
  res <- node_by_constraint(ison_adolescents)
  expect_equal(round(unname(res[1:3]),2), c(1, .43, .57))
  expect_output(print(res), "Alice")
})

test_that("hierarchy is reported correctly", {
  expect_s3_class(node_by_hierarchy(ison_brandes), "node_measure")
  expect_s3_class(node_by_hierarchy(ison_southern_women), "node_measure")
  expect_equal(length(node_by_hierarchy(ison_brandes)), c(net_nodes(ison_brandes)))
  expect_equal(length(node_by_hierarchy(ison_southern_women)),
               c(net_nodes(ison_southern_women)))
  expect_named(node_by_hierarchy(ison_southern_women))
})

test_that("node_neighbours_degree works", {
  expect_equal(top3(node_by_neighbours_degree(ison_adolescents)), c(4,2.75,3))
})

test_that("tie_cohesion works", {
  expect_equal(top3(tie_by_cohesion(ison_adolescents)), c(0,0.5,0.3333))
})