tests/testthat/test-multilevel.community.R

In igraph: Network Analysis and Visualization

test_that("cluster_louvain works", {
  set.seed(42)

  g <- make_graph("Zachary")
  mc <- cluster_louvain(g)

  expect_that(
    as.vector(membership(mc)),
    equals(c(
      1, 2, 2, 2, 1, 1, 1, 2, 3, 2, 1, 1, 1, 2, 3, 3, 1,
      1, 3, 1, 3, 1, 3, 4, 4, 4, 3, 4, 4, 3, 3, 4, 3, 3
    ))
  )
  expect_that(modularity(g, mc$membership), equals(max(mc$modularity)))
  expect_that(length(mc), equals(4))
  expect_that(
    sizes(mc),
    equals(
      structure(c(11L, 6L, 11L, 6L),
        .Dim = 4L,
        .Dimnames = structure(
          list(`Community sizes` = c(
            "1",
            "2", "3", "4"
          )),
          .Names = "Community sizes"
        ),
        class = "table"
      )
    )
  )
})