library("PAFit")
net <- GenerateNet(N = 50,m = 10, mode = 1, alpha = 0.5, shape = 100, rate = 100)
net_stats <- GetStatistics(net$graph)
result <- PAFit(net_stats, r = 0.01, s = 100)
summary(result)
Run the code above in your browser using DataLab