context("rewire")
test_that("rewire(each_edge(mode='in')) keeps the in-degree distribution", {
g <- barabasi.game(1000)
g2 <- g %>% rewire(each_edge(mode="in", multiple=T, prob=0.2))
expect_that(degree(g, mode="in"), equals(degree(g2, mode="in")))
expect_false(all(degree(g, mode="out") == degree(g2, mode="out")))
})
test_that("rewire(each_edge(mode='out')) keeps the out-degree distribution", {
g <- barabasi.game(1000)
g2 <- g %>% rewire(each_edge(mode="out", multiple=T, prob=0.2))
expect_that(degree(g, mode="out"), equals(degree(g2, mode="out")))
expect_false(all(degree(g, mode="in") == degree(g2, mode="in")))
})
test_that("rewire() with zero probability does not do anything", {
g <- barabasi.game(100)
g2 <- g %>% rewire(each_edge(prob=0))
expect_true(identical_graphs(g, g2))
})
Generated by dwww version 1.15 on Sun Jun 23 20:21:44 CEST 2024.