R/degreeDistribution.R

In QuACN: QuACN: Quantitative Analysis of Complex Networks

Defines functions degreeDistribution

Documented in degreeDistribution

degreeDistribution <- function(g, deg=NULL){
  # check if g is a graphNEL object
  if(class(g)[1]!="graphNEL"){
    stop("'g' has to be a 'graphNEL' object")
  }
  stopifnot(.validateGraph(g))
  
  if(is.null(deg)){
    deg <- graph::degree(g)
  }
  return(table(deg))
}

Try the QuACN package in your browser