context("largest_cliques")
test_that("largest_cliques works", {
library(igraph)
g <- sample_gnp(50,20/50)
lc <- largest_cliques(g)
## TODO: this only checks that these are cliques
expect_that(unique(sapply(lc, function(x)
edge_density(induced_subgraph(g, x)))),
equals(1))
})
Generated by dwww version 1.15 on Sun Jun 16 16:47:37 CEST 2024.