context("cluster_optimal") test_that("cluster_optimal works", { skip_if_no_glpk() library(igraph) g <- make_graph("Zachary") oc <- cluster_optimal(g) expect_that(as.vector(membership(oc)), equals(c(1, 1, 1, 1, 2, 2, 2, 1, 3, 3, 2, 1, 1, 1, 3, 3, 2, 1, 3, 1, 3, 1, 3, 4, 4, 4, 3, 4, 4, 3, 3, 4, 3, 3) )) expect_that(modularity(g, oc$membership), equals(oc$modularity)) expect_that(length(oc), equals(4)) expect_that(sizes(oc), equals(structure(c(11L, 5L, 12L, 6L), .Dim=4L, .Dimnames=structure(list(`Community sizes`=c("1", "2", "3", "4")), .Names="Community sizes"), class="table") )) }) test_that("weighted cluster_optimal works", { skip_if_no_glpk() library(igraph) local_rng_version("3.5.0") set.seed(42) g <- make_full_graph(5) + make_ring(5) E(g)$weight <- sample(1:2, ecount(g), replace=TRUE) oc <- cluster_optimal(g) expect_that(modularity(oc), equals(0.4032)) })
Generated by dwww version 1.15 on Sun Jun 16 15:03:39 CEST 2024.