dwww Home | Show directory contents | Find package

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 Thu May 23 17:22:45 CEST 2024.