context("multiple edges")
test_that("any_multiple, count_multiple, which_multiple works", {
library(igraph)
set.seed(42)
g <- barabasi.game(10, m=3, algorithm="bag")
im <- which_multiple(g)
cm <- count_multiple(g)
expect_true(any_multiple(g))
expect_that(im, equals(c(FALSE, TRUE, TRUE, FALSE, TRUE, TRUE,
FALSE, FALSE, FALSE, FALSE, FALSE, TRUE,
FALSE, FALSE, TRUE, FALSE, FALSE, TRUE,
FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,
FALSE, FALSE, TRUE)))
expect_that(cm, equals(c(3, 3, 3, 3, 3, 3, 1, 1, 1, 2, 1, 2, 1, 2,
2, 2, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 2)))
expect_that(count_multiple(simplify(g)),
equals(rep(1, ecount(simplify(g)))))
## Direction of the edge is important
expect_false(any_multiple(graph( c(1,2, 2,1) )))
expect_that(which_multiple(graph( c(1,2, 2,1) )), equals(c(FALSE, FALSE)))
expect_that(which_multiple(graph( c(1,2, 2,1), dir=FALSE )),
equals(c(FALSE, TRUE)))
## Remove multiple edges but keep multiplicity
g <- barabasi.game(10, m=3, algorithm="bag")
E(g)$weight <- 1
g <- simplify(g)
expect_false(any_multiple(g))
expect_false(any(which_multiple(g)))
expect_that(E(g)$weight, equals(c(3, 2, 1, 2, 1, 3, 2, 1, 2, 1, 2,
1, 1, 1, 1, 1, 1, 1)))
})
Generated by dwww version 1.15 on Sun Jun 16 12:28:07 CEST 2024.