tests/testthat/test-sample_pa_homophilic.R

test_that("sample_pa_homophilic works", {
    g <- sample_pa_homophilic(
        n = 50,
        m = 2,
        minority_fraction = 0.2,
        h_ab = 1
    )
    expect_true(sum(V(g)$minority) == 10)
})
schochastics/netUtils documentation built on Oct. 17, 2024, 10:45 a.m.