Nothing
test_that("edge_connectivity works", {
gc <- function(graph) {
clu <- components(graph)
induced_subgraph(graph, which(clu$membership == which.max(clu$csize)))
}
g <- gc(sample_gnp(30, 8 / 30))
ec <- edge_connectivity(g)
ecST <- Inf
for (j in 1:(vcount(g) - 1)) {
for (k in (j + 1):vcount(g)) {
ec2 <- edge_connectivity(g, source = j, target = k)
if (ec2 < ecST) {
ecST <- ec2
}
}
}
expect_that(ec, equals(ecST))
####
kite <- graph_from_literal(
Andre - Beverly:Carol:Diane:Fernando,
Beverly - Andre:Diane:Ed:Garth,
Carol - Andre:Diane:Fernando,
Diane - Andre:Beverly:Carol:Ed:Fernando:Garth,
Ed - Beverly:Diane:Garth,
Fernando - Andre:Carol:Diane:Garth:Heather,
Garth - Beverly:Diane:Ed:Fernando:Heather,
Heather - Fernando:Garth:Ike,
Ike - Heather:Jane,
Jane - Ike
)
ec1 <- edge_connectivity(kite, source = "Heather", target = "Andre")
ec2 <- edge_connectivity(kite, source = "Garth", target = "Andre")
ec3 <- edge_connectivity(kite, source = "Garth", target = "Ike")
expect_that(ec1, equals(2))
expect_that(ec2, equals(4))
expect_that(ec3, equals(1))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.