/usr/share/doc/r-cran-igraph/tests/testthat/test_graph.data.frame.R is in r-cran-igraph 1.1.2-2ubuntu3.
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 25 26 27 28 29 30 31 32 33 34 35 36 37 | context("graph_from_data_frame")
test_that("graph_from_data_frame works", {
library(igraph) ; igraph_options(print.full=TRUE)
actors <- data.frame(name=c("Alice", "Bob", "Cecil", "David",
"Esmeralda"),
age=c(48,33,45,34,21),
gender=c("F","M","F","M","F"),
stringsAsFactors=FALSE)
relations <- data.frame(from=c("Bob", "Cecil", "Cecil", "David",
"David", "Esmeralda"),
to=c("Alice", "Bob", "Alice", "Alice",
"Bob", "Alice"),
same.dept=c(FALSE,FALSE,TRUE,FALSE,FALSE,TRUE),
friendship=c(4,5,5,2,1,1), advice=c(4,5,5,4,2,3),
stringsAsFactors=FALSE)
g <- graph_from_data_frame(relations, directed=TRUE, vertices=actors)
df <- as_data_frame(g, what="both")
expect_that(df$vertices, is_equivalent_to(actors))
expect_that(df$edges, equals(relations))
})
test_that("graph_from_data_frame works on matrices", {
library(igraph)
el <- cbind(1:5,5:1,weight=1:5)
g <- graph_from_data_frame(el)
g <- delete_vertex_attr(g, "name")
el2 <- as_data_frame(g)
expect_that(as.data.frame(el), is_equivalent_to(el2))
})
|