library(igraph)
n <- 25
g <- sample_gnp(n, p=0.25) # Random graph
X5 <- build_cover_random(g,10000,p=0.65)
X5$size # 19
plot_cover(X5, g)
X6 <- improve_cover_flip(g, X5) # Improved : 17
plot_cover(X6, g)
Run the code above in your browser using DataLab