1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
context("farthest_vertices")
test_that("farthest_vertices works", {
library(igraph)
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)
fn <- farthest_vertices(kite)
fn$vertices <- as.vector(fn$vertices)
expect_that(fn, equals(list(vertices = c(1, 10), distance = 4)))
expect_that(distances(kite, v=fn$vertices[1], to=fn$vertices[2])[1],
equals(fn$distance))
expect_that(diameter(kite), equals(fn$distance))
})
|
