Nothing
test_that("modularity_matrix works", {
kar <- make_graph("zachary")
fc <- cluster_fast_greedy(kar)
m1 <- modularity(kar, membership(fc))
m2 <- modularity(kar, membership(fc), weights = rep(1, ecount(kar)))
expect_that(m1, equals(m2))
B1 <- modularity_matrix(kar)
B2 <- modularity_matrix(kar, weights = rep(1, ecount(kar)))
expect_that(B1, equals(B2))
})
test_that("modularity_matrix still accepts a membership argument for compatibility", {
kar <- make_graph("zachary")
expect_warning(
modularity_matrix(kar, membership = rep(1, vcount(kar))),
"membership argument is deprecated"
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.