r - 计算列表中所有网络的传递性

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