tests/testthat/test-create_unweighted_network.R

In crcox/netbuildr: Build adjacency matrices

test_that("an unweighted associative network can be generated", {
  cues    <- c(1,1,1,1,2,2,2,2,3,3,3,3)
  targets <- c(2,4,5,6,3,4,5,6,1,4,5,6)
  expect_equal(
    create_unweighted_network(cues, targets),
    matrix(c(F,F,T,T,F,F,F,T,F), nrow = length(unique(cues)), dimnames = list(unique(cues), unique(cues)))
  )
})