R/harary.R

In QuACN: QuACN: Quantitative Analysis of Complex Networks

Defines functions harary

Documented in harary

harary <- function(g, dist=NULL){
  # check if g is a graphNEL object
  if(class(g)[1]!="graphNEL"){
    stop("'g' must be a 'graphNEL' object")
  }
  if(is.null(dist)){
    dist <- distanceMatrix(g)
  }
  return ( sum(1/(dist[dist!=0]))/2)
}

Try the QuACN package in your browser