library("PAFit")
# a network from Bianconi-Barabasi model
net <- generate_BB(N = 50 , m = 10 , s = 10)
plot(net, plot = "graph")
plot(net, plot = "degree")
plot(net, plot = "PA")
plot(net, plot = "fit")
Run the code above in your browser using DataLab