context("contract") test_that("contract works", { library(igraph) local_rng_version("3.5.0") set.seed(42) g <- make_ring(10) g$name <- "Ring" V(g)$name <- letters[1:vcount(g)] E(g)$weight <- sample(ecount(g)) g2 <- contract(g, rep(1:5, each=2), vertex.attr.comb=toString) ## graph and edge attributes are kept, vertex attributes are ## combined using the 'toString' function. expect_that(g2$name, equals(g$name)) expect_that(V(g2)$name, equals(c("a, b", "c, d", "e, f", "g, h", "i, j"))) expect_that(as.matrix(g2[]), is_equivalent_to(cbind(c(10,9,0,0,7), c(9,3,6,0,0), c(0,6,4,8,0), c(0,0,8,5,1), c(7,0,0,1,2)))) })
Generated by dwww version 1.15 on Sun Jun 16 16:38:02 CEST 2024.