library(PAFit)
net <- generate_BA(N = 100, multiple_node = 20, m = 1)
system.time(b <- to_igraph(net))
#plot(network.extract(b,at = 6))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.