context("as_adj") test_that("as_adj works", { library(igraph) g <- sample_gnp(50, 1/50) A <- as_adj(g, sparse=FALSE) g2 <- graph_from_adjacency_matrix(A, mode="undirected") expect_true(graph.isomorphic(g, g2)) ### A <- as_adj(g, sparse=TRUE) g2 <- graph_from_adjacency_matrix(A, mode="undirected") expect_true(graph.isomorphic(g, g2)) ### g <- sample_gnp(50, 2/50, directed=TRUE) A <- as_adj(g, sparse=FALSE) g2 <- graph_from_adjacency_matrix(A) expect_true(graph.isomorphic(g, g2)) ### A <- as_adj(g, sparse=TRUE) g2 <- graph_from_adjacency_matrix(A) expect_true(graph.isomorphic(g, g2)) })
Generated by dwww version 1.15 on Sun Jun 16 15:48:51 CEST 2024.