# NOT RUN {
## Compare to the correct clustering
g <- (make_full_graph(10) + make_full_graph(10)) %>%
rewire(each_edge(p = 0.2))
correct <- rep(1:2, each = 10) %>% as_membership
fc <- cluster_fast_greedy(g)
compare(correct, fc)
compare(correct, membership(fc))
# }
Run the code above in your browser using DataLab