context("ivs")
test_that("ivs works", {
library(igraph)
g <- sample_gnp(50, 0.8)
ivs <- ivs(g, min=ivs_size(g))
ec <- sapply(seq_along(ivs), function(x)
ecount(induced_subgraph(g, ivs[[x]])))
expect_that(unique(ec), equals(0))
})
Generated by dwww version 1.15 on Thu May 23 22:39:50 CEST 2024.