context("graphNEL conversion") test_that("graphNEL conversion works", { if (!requireNamespace("graph", quietly = TRUE)) skip("No graph package") library(graph, warn.conflicts=FALSE) g <- sample_gnp(100, 5/100) N <- as_graphnel(g) g2 <- graph_from_graphnel(N) gi <- graph.isomorphic.vf2(g, g2) expect_true(gi$iso) expect_that(gi$map12, equals(1:vcount(g))) expect_that(gi$map21, equals(1:vcount(g))) ## Attributes V(g)$name <- as.character(vcount(g):1) E(g)$weight <- sample(1:10, ecount(g), replace=TRUE) g$name <- "Foobar" N <- as_graphnel(g) g2 <- graph_from_graphnel(N) expect_true(graph.isomorphic(g, g2)) expect_that(V(g)$name, equals(V(g2)$name)) A <- as_adj(g, attr="weight", sparse=FALSE) A2 <- as_adj(g2, attr="weight", sparse=FALSE) expect_that(A, equals(A)) expect_that(g$name, equals(g2$name)) suppressWarnings(unloadNamespace("graph")) })
Generated by dwww version 1.15 on Sun Jun 16 15:36:59 CEST 2024.