dwww Home | Show directory contents | Find package

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.