library(igraph)
set.seed(1)
n <- 25
g <- sample_gnp(n, p=0.25) # Random graph
eg <- as_edgelist(g)
X1 <- build_cover_greedy(g)
is_cover(X1$set, eg) # TRUE
is_cover(c(1:10),eg) # FALSE
plot_cover(list(set = 1:10, size = 10), g) # See uncovered edges
Run the code above in your browser using DataLab