Рандомизации транзитивности

Как и в случае со средней длиной пути, давайте проверим, является ли глобальная транзитивность сети Форреста Гампа значимо выше той, которую можно ожидать случайно для случайных сетей того же размера и плотности. Вы можете сравнить глобальную транзитивность сети Форреста Гампа с 1000 другими случайными сетями.

Это упражнение является частью курса

Анализ сетей в R

Посмотреть курс

Инструкции к упражнению

В объекте-списке gl хранятся тысяча случайных сетей. С помощью lapply() и transitivity() вычислите глобальную транзитивность каждой из них. Присвойте результаты переменной gl.tr.
С помощью unlist() преобразуйте gl.tr в числовой вектор gl.trs.
Изучите сводную статистику по транзитивностям случайных сетей с помощью summary().
Вычислите долю случайных графов, транзитивность которых выше транзитивности сети Форреста Гампа — она была рассчитана ранее и присвоена переменной g.tr.

Интерактивное практическое упражнение

Попробуйте выполнить это упражнение, дополнив этот пример кода.

library(igraph)

# Calculate average transitivity of 1000 random graphs
gl.tr <- ___(gl, ___)
gl.trs <- ___(gl.tr)

# Get summary statistics of transitivity scores
___(gl.trs)

# Calculate the proportion of graphs with a transitivity score higher than Forrest Gump's network
mean(gl.trs > ___)

Редактировать и запускать код