context("all_shortest_paths")
test_that("all_shortest_paths works", {
library(igraph)
edges <- matrix(c("s", "a", 2,
"s", "b", 4,
"a", "t", 4,
"b", "t", 2,
"a", "1", 1,
"a", "2", 1,
"a", "3", 2,
"1", "b", 1,
"2", "b", 2,
"3", "b", 1),
byrow=TRUE, ncol=3,
dimnames=list(NULL, c("from", "to", "weight")))
edges <- as.data.frame(edges)
edges[[3]] <- as.numeric(as.character(edges[[3]]))
g <- graph_from_data_frame(as.data.frame(edges))
sortlist <- function(list) {
list <- lapply(list, sort)
list <- lapply(list, as.vector)
list[order(sapply(list, paste, collapse="!"))]
}
sp1 <- all_shortest_paths(g, "s", "t", weights=NA)
expect_that(sortlist(sp1$res),
equals(list(c(1, 2, 7), c(1, 3, 7))))
expect_that(sp1$nrgeo,
equals(c(1,1,1,1,1,1,2)))
sp2 <- all_shortest_paths(g, "s", "t")
expect_that(sortlist(sp2$res),
equals(list(c(1, 2, 3, 4, 7), c(1, 2, 7), c(1, 3, 7))))
expect_that(sp2$nrgeo, equals(c(1,1,2,1,1,1,3)))
## TODO
## E(g)$weight <- E(g)$weight - 1
## all_shortest_paths(g, "s", "t")
})
Generated by dwww version 1.15 on Sun Jun 16 16:42:42 CEST 2024.