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.