context("edgelist") test_that("as_edgelist works", { library(igraph) g <- sample_gnp(100, 3/100) e <- as_edgelist(g) g2 <- graph(t(e), n=vcount(g), dir=FALSE) expect_true(graph.isomorphic(g, g2)) })
Generated by dwww version 1.15 on Sun Jun 16 13:41:30 CEST 2024.