library(igraph)
set.seed(1)
g <- sample_gnp(25, p=0.25) # Random graph
X1 <- build_cover_greedy(g)
plot_cover(X1, g)
st <- 1:5 # Not a vertex cover
plot_cover(list(set = st, size = length(st)), g) # See covered edges
Run the code above in your browser using DataLab