计算及物对列表中的所有网络

Question

我有存储在列表500个随机网络

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

我能计算出每个网络及物单独使用

transitivity(gs[[1]]) 

如何计算所有网络的传递性，并将这些值输出到excel表格中以进行一些统计分析。任何想法请。

Answer 1

使用* apply函数，特别是sapply或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")