library(igraph)
set.seed(1)
n <- 25
g <- sample_gnp(n, p=0.25) # Random graph
X7 <- search_cover_random(g, 10000, 17, alpha = 3)
plot_cover(X7, g)
X7$found # 21 (of 10000) covers of size 17
## Looking for a cover of size 16...
X8 <- search_cover_random(g, 10000, 16, alpha = 3) # ...we don't find any!
plot_cover(X8, g) # All edges uncovered
X8$found # 0
Run the code above in your browser using DataLab