R/narumiKatayama.R

Defines functions narumiKatayama

Documented in narumiKatayama

narumiKatayama <- function(g, deg=NULL) {
  if (is.null(deg)) {

    if (class(g)[1] != "graphNEL")
      stop("'g' has to be a 'graphNEL' object")
    stopifnot(.validateGraph(g))
    
    deg = graph::degree(g)
  }

  prod(deg)
}

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, 5:46 p.m.