context("coreness")
test_that("coreness works", {
library(igraph)
g <- make_ring(10)
g <- add_edges(g, c(1,2, 2,3, 1,3))
gc <- coreness(g)
expect_that(gc, equals(c(3,3,3,2,2,2,2,2,2,2)))
})
Generated by dwww version 1.15 on Sat May 18 14:14:12 CEST 2024.