R/get_my_statistics.R

In thongphamthe/mcPAFit: Estimating Preferential Attachment from a Single Network Snapshot in Constant Time

# function to summarize statistics from a growing network 
get_my_statistics <-
function(net, net_type = "directed"){
  net_object <- as.PAFit_net(net, type = "directed")
  return(get_statistics(net_object, only_PA = TRUE, 
                        binning = TRUE, g = 20))
}