context("complementer")
test_that("complementer works", {
library(igraph)
g <- sample_gnp(50, 3/50)
g2 <- complementer(g)
g3 <- complementer(g2)
expect_true(graph.isomorphic(g, g3))
})
Generated by dwww version 1.15 on Fri May 24 02:22:29 CEST 2024.