R/betweenness.with.duplicated.nodes.R

In dupNodes: Computes DNSLbetweenness, a Betweenness Measure that Includes Self-Loops

library(igraph)

# Computes betweenness centrality in a graph with duplicates nodes, returning only values for original ones
#

betweenness.with.duplicated.nodes <- function( dup.graph ) {
  betweenness <- betweenness(dup.graph)
  original.nodes <- .original_graph_nodes(dup.graph)
  return( betweenness[ original.nodes ] )
}