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 Fri Jun 14 15:28:51 CEST 2024.