R/hyperDistancePathIndex.R

In QuACN: QuACN: Quantitative Analysis of Complex Networks

Defines functions hyperDistancePathIndex

Documented in hyperDistancePathIndex

hyperDistancePathIndex <- function(g, dist=NULL, wien=NULL){
   if(class(g)[1]!="graphNEL"){
    stop("'g' must be a 'graphNEL' object")
  }
   stopifnot(.validateGraph(g))
  
  if(is.null(dist)){
    dist <- distanceMatrix(g)
  }
  if(is.null(wien)){
    wien <- wiener(g)
  }
  wien + sum(nCm(dist,2))/2
}

Try the QuACN package in your browser