dwww Home | Show directory contents | Find package

context("graph.atlas")

test_that("graph.atlas works", {
  library(igraph)
  g124 <- graph.atlas(124)
  expect_true(graph.isomorphic(g124, graph(c(1,2,2,3,3,4,4,5,1,5,1,3,2,6),
                                           directed=FALSE)))
  g234 <- graph.atlas(234)
  expect_true(graph.isomorphic(g234, graph(c(1,6,2,6,3,6,4,6,5,6), n=7,
                                           directed=FALSE)))
})

Generated by dwww version 1.15 on Sun Jun 16 13:23:32 CEST 2024.