/usr/lib/R/site-library/igraph/tests/test_fartherst.nodes.R is in r-cran-igraph 0.7.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | context("farthest.nodes")
test_that("farthest.nodes works", {
library(igraph)
kite <- graph.formula(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)
fn <- farthest.nodes(kite)
expect_that(fn, equals(c(1,10,4)))
expect_that(shortest.paths(kite, v=fn[1], to=fn[2])[1], equals(fn[3]))
expect_that(diameter(kite), equals(fn[3]))
})
|