tests/testthat/test-betweenness.with.dup.R

library(igraph)

V1 <- c("A", "A","B","C","D","E")
V2 <- c("A", "B","C","D","E","A")

original.graph <- graph_from_data_frame(data.frame(V1, V2), directed=FALSE)
betweenness.original <- betweenness(original.graph)
dup.graph <- dup.nodes.from.data.frame( data.frame(V1, V2) )

test_that("It returns only original nodes", {
  betweenness.dup <- betweenness.with.duplicated.nodes(dup.graph)
  expect_equal( length(betweenness.dup), length(unique(c(V1,V2))) )
  expect_false( unname(betweenness.original["A"]) == unname(betweenness.dup["A"]) )
})

Try the dupNodes package in your browser

Any scripts or data that you put into this service are public.

dupNodes documentation built on June 22, 2024, 7:03 p.m.