test_that("Largest cliques is correct", {
unvs <- function(x) lapply(x, . %>% as.vector() %>% sort())
adj <- matrix(1, nrow = 11, ncol = 11) - diag(11)
g <- graph_from_adjacency_matrix(adj)
lc <- suppressWarnings(largest_cliques(g))
expect_equal(unvs(lc), list(1:11))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.