計算及物對列表中的所有網絡

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