context("min_separators") test_that("min_separators works", { library(igraph) camp <- graph_from_literal(Harry:Steve:Don:Bert - Harry:Steve:Don:Bert, Pam:Brazey:Carol:Pat - Pam:Brazey:Carol:Pat, Holly - Carol:Pat:Pam:Jennie:Bill, Bill - Pauline:Michael:Lee:Holly, Pauline - Bill:Jennie:Ann, Jennie - Holly:Michael:Lee:Ann:Pauline, Michael - Bill:Jennie:Ann:Lee:John, Ann - Michael:Jennie:Pauline, Lee - Michael:Bill:Jennie, Gery - Pat:Steve:Russ:John, Russ - Steve:Bert:Gery:John, John - Gery:Russ:Michael) camp <- simplify(camp) sep <- min_separators(camp) expect_true(all(sapply(sep, is_min_separator, graph=camp))) })
Generated by dwww version 1.15 on Sun Jun 16 11:00:30 CEST 2024.