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)) })
Generated by dwww version 1.15 on Sun Jun 16 11:35:54 CEST 2024.