dwww Home | Show directory contents | Find package

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.