dwww Home | Show directory contents | Find package

context("max_flow")

test_that("max_flow works", {
  library(igraph)
  E <- rbind( c(1,3,3), c(3,4,1), c(4,2,2), c(1,5,1), c(5,6,2), c(6,2,10))
  colnames(E) <- c("from", "to", "capacity")
  g1 <- graph_from_data_frame(as.data.frame(E))
  fl <- max_flow(g1, source="1", target="2")
  expect_that(fl$value, equals(2))
  expect_that(as.vector(fl$flow), equals(rep(1, 6)))
  expect_that(sort(as.vector(fl$cut)), equals(c(2,4)))
  expect_that(sort(as.vector(fl$partition1)), equals(1:2))
  expect_that(sort(as.vector(fl$partition2)), equals(3:6))
})

Generated by dwww version 1.15 on Sun Jun 16 15:56:01 CEST 2024.