tests/testthat/test-core_periphery.R

In schochastics/netUtils: A Collection of Tools for Network Analysis

test_that("core periphery works", {
    library(igraph)
    g <- make_full_graph(5, directed = FALSE)
    g <- add_vertices(g, 5)
    vec1 <- core_periphery(g, method = "rk1_ec")$vec
    expect_equal(vec1, c(1, 1, 1, 1, 1, 0, 0, 0, 0, 0))
    vec2 <- core_periphery(g, method = "rk1_dc")$vec
    expect_equal(vec2, c(1, 1, 1, 1, 1, 0, 0, 0, 0, 0))
    expect_error(core_periphery(graph_empty, method = "l33t"))
})