Можете ли вы рассчитать среднюю транзитивность для списка графических объектов?

Question

Я составил список из 1000 случайных сетей для сравнения с сетью. Я хотел бы вычислить для них средние показатели, включая транзитивность (), взаимность () и среднее_дистанцию ​​(). Вот код, который я использовал для создания списка.

set.seed(1)
nwl <- list()
for (x in seq_len(1000L)) {
    Start = sample(18, 693, replace=TRUE)
    End   = sample(18, 693, replace=TRUE)
    df = data.frame(Start, End)
    nwl[[x]]= graph_from_data_frame(df, directed=TRUE)
}

Я могу вычислить индивидуальную транзитивность каждого графика следующим образом:

transitivity(nwl[[x]])

Где x = номер графика из списка. Есть ли способ усреднить их всех?

Answer 1

Вы можете использовать

sapply(nwl, transitivity)

для получения значений и

mean(sapply(nwl, transitivity))
# [1] 0.9862236

для получения среднего значения.