R/draw.degdist.R

In networkgroupR/fastnet: Large-Scale Social Network Analysis

#' Plot of the degree distribution of a network
#'
#' @description Plot the degree distribution of a network.
#' @param net The input network.
#' @details Plot the degree distribution of a network.
#' @return A .gif plot.
#' @author Xu Dong, Nazrul Shaikh.
#' @examples \dontrun{
#' x <-  net.erdos.renyi.gnp(1000, 0.01)
#' draw.degdist(x)}
#' @export

draw.degdist <- function(net){

  freq <- as.data.frame(table(lengths(net)))
  freq$Freq <- freq$Freq/length(net)
  graphics::plot(freq, xlab="Degree", ylab = "Prob")

}