tests/test_test_linear_PA.R

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)
}

Try the PAFit package in your browser

Any scripts or data that you put into this service are public.

PAFit documentation built on Jan. 18, 2022, 1:10 a.m.