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 Sat May 18 12:01:23 CEST 2024.