R/graph.R

average.degree <- function(A) {
  
  n <- dim(A)[1]
  
  As <- make.symmetric(A)
  
  D = rowSums(A)
  
  
  return(sum(D)/n)
  
}
amirms/GeLaToLab documentation built on May 12, 2019, 2:36 a.m.