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

Як і для середньої довжини шляху, дослідимо, чи є глобальна транзитивність мережі «Форрест Ґамп» суттєво вищою, ніж можна було б очікувати випадково для довільних мереж того самого розміру та щільності. Ви можете порівняти глобальну транзитивність «Форреста Ґампа» з 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 > ___)

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