inst/tinytest/test-network.R

In USCCANA/lergm: Exponential Random Graph Models for Small Networks

pset <- powerset(4)

# List method
ans0 <- matrix_to_network(pset)
ans1 <- lapply(pset, network::as.network)

expect_equal(as_adjmat(ans0), as_adjmat(ans1))

expect_equal(
  as_adjmat(matrix_to_network(pset[[106]])),
  as_adjmat(network::as.network(pset[[106]]))
  )