library(igraph)
set.seed(1)
n <- 25
g <- sample_gnp(n, p=0.25) # Random graph
c1 <- build_cut_random(g)
c1$size # 44
plot_cut(c1, g)
c2 <- build_cut_greedy(g)
c2$size # 59
plot_cut(c2, g)
c3 <- improve_cut_flip(g, c1)
c3$size # 65
plot_cut(c3,g)
c4 <- improve_cut_flip(g, c2)
c4$size # 60
plot_cut(c4,g)
Run the code above in your browser using DataLab