if (requireNamespace("igraph", quietly = TRUE)) {
g <- igraph::sample_pa(30, m = 2, directed = FALSE)
rob_btw <- robustness(g, measure = "betweenness")
rob_rnd <- robustness(g, measure = "random", n_iter = 20)
cat("Betweenness attack AUC:", round(robustness_auc(rob_btw), 3), "\n")
cat("Random failure AUC:", round(robustness_auc(rob_rnd), 3), "\n")
}
Run the code above in your browser using DataLab