tests/testthat/test-largest.cliques.R

test_that("largest_cliques works", {
  g <- sample_gnp(50, 20 / 50)
  lc <- largest_cliques(g)

  ## TODO: this only checks that these are cliques
  expect_equal(
    unique(sapply(lc, function(x) {
      edge_density(induced_subgraph(g, x))
    })),
    1
  )
})

Try the igraph package in your browser

Any scripts or data that you put into this service are public.

igraph documentation built on Oct. 20, 2024, 1:06 a.m.