if (FALSE) {
library("PAFit")
net_1 <- generate_BA(N = 10000, alpha = 1) # true attachment exponent = 1.0
result_1 <- PAFit_oneshot(net_1)
print(result_1)
net_2 <- generate_BA(N = 10000, alpha = 0.5) # true attachment exponent = 0.5
result_2 <- PAFit_oneshot(net_2)
print(result_2)
}
Run the code above in your browser using DataLab