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