library(igraph)
## Example with known cover
K25 <- make_full_graph(25) # Cover of size 24
X0 <- build_cover_greedy(K25)
X0$size # 24
plot_cover(X0, K25)
plot_cover(list(set = c(1,2), size = 2), K25)
## Vertex-cover of a random graph
set.seed(1)
n <- 25
g <- sample_gnp(n, p=0.25)
X1 <- build_cover_greedy(g)
X1$size # 17
plot_cover(X1, g)
Run the code above in your browser using DataLab