library("PAFit")
set.seed(1)
for (iii in 1) {
net <- generate_BA(N = 50)
stats <- get_statistics(net, only_PA = TRUE)
u <- test_linear_PA(stats$final_deg)
print(u)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.