library("PAFit")
data <- GenerateNet(N = 100,m = 1,alpha = 1, mode = 1, shape = 0, rate = 0)
stats <- GetStatistics(data$graph)
result <- PAFit(stats,only_PA = TRUE,stop_cond = 10^-3)
plot(x = result,data = stats,plot = "A")
Run the code above in your browser using DataLab