R/zagreb2.R

Defines functions zagreb2

Documented in zagreb2

zagreb2 <- function(g,deg=NULL){
   if(class(g)[1]!="graphNEL"){
    stop("'g' must be a 'graphNEL' object")
  }
  stopifnot(.validateGraph(g))

  if(is.null(deg)){
    deg <- graph::degree(g)
  }

  sum(.edgeApply(g, function(from, to) {
    deg[from] * deg[to]
  }, dupls=FALSE))
}

Try the QuACN package in your browser

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

QuACN documentation built on May 2, 2019, 8:18 a.m.