Calculer transitivité pour tous les réseaux dans une liste

Question

j'ai 500 réseaux aléatoires stockés dans une liste

for (x in seq_len(500L)) { 
+  gs[[x]] <- erdos.renyi.game(361, 695, type = "gnm") 

Je suis en mesure de calculer la transitivité pour chaque réseau individuellement à l'aide

transitivity(gs[[1]]) 

Comment puis-je calculer la transitivité pour tous les réseaux et de sortie les valeurs dans une feuille Excel afin de faire une analyse statistique. Anyt pensées s'il vous plaît.

Answer 1

Utilisez une fonction * apply, spécifiquement sapply ou lapply.

library(igraph) 

gs <- list() 
for (x in seq_len(500L)) { 
    gs[[x]] <- erdos.renyi.game(361, 695, type = "gnm") 
} 

gs.trans <- sapply(gs, transitivity) 
write.csv(gs.trans, file="Graph_transivity.txt")