context("as_incidence_matrix") test_that("as_incidence_matrix works", { library(igraph) ## Dense I <- matrix(sample(0:1, 35, replace=TRUE, prob=c(3,1)), ncol=5) g <- graph_from_incidence_matrix(I) I2 <- as_incidence_matrix(g) expect_that(I, is_equivalent_to(I2)) expect_that(rownames(I2), equals(as.character(1:7))) expect_that(colnames(I2), equals(as.character(8:12))) ## Sparse I3 <- as_incidence_matrix(g, sparse=TRUE) expect_that(as.matrix(I3), is_equivalent_to(I)) expect_that(rownames(I3), equals(as.character(1:7))) expect_that(colnames(I3), equals(as.character(8:12))) })
Generated by dwww version 1.15 on Sun Jun 16 15:02:23 CEST 2024.