context("weighted_cliques")
test_that("weighted_cliques works", {
g <- make_graph( ~ A-B-C-A-D-E-F-G-H-D-F-H-E-G-D )
weights <- c(5,5,5,3,3,3,3,2)
check.clique <- function(graph, vids, min_weight) {
s <- induced_subgraph(graph, vids)
ecount(s) == vcount(s) * (vcount(s)-1) / 2 && sum(V(s)$weight) >= min_weight
}
expect_that(
lapply(largest_weighted_cliques(g, vertex.weights=weights), as.numeric),
equals(list(c(1,2,3)))
)
V(g)$weight <- weights
cl <- sapply(weighted_cliques(g, min.weight=9), check.clique, graph=g, min_weight=9)
expect_that(cl, equals(rep(TRUE, 14)))
g <- make_graph("zachary")
weights <- rep(1, vcount(g))
weights[c(1,2,3,4,14)] <- 3
expect_that(weighted_clique_num(g, vertex.weights=weights), equals(15))
V(g)$weight <- weights * 2
expect_that(weighted_clique_num(g), equals(30))
})
Generated by dwww version 1.15 on Sat May 18 11:33:48 CEST 2024.