tests/test_PAFit_oneshot.R

library(PAFit)

mean_array <- rep(0,10)
for (i in 1:10) {
testNet1 <- generate_BA(N = 500, m = 1, alpha = 0.75)
result   <- PAFit_oneshot(testNet1)
mean_array[i] <- result$alpha
}

mean(mean_array)
sd(mean_array)/sqrt(10)

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.