Вычислить транзитивность для всех сетей в списке

У меня есть 500 случайных сетей, хранящихся в списке

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

Я могу рассчитать транзитивность для каждой сети индивидуально, используя

transitivity(gs[[1]])

Как мне рассчитать транзитивность для всех сетей и вывести значения в таблицу Excel, чтобы провести некоторый статистический анализ. Любые мысли пожалуйста.


r igraph transitivity
person The Last Word    schedule 29.05.2017    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Используйте функцию * 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")
person emilliman5    schedule 30.05.2017