Randomizace tranzitivity

Stejně jako u průměrné délky cesty teď prozkoumáme, jestli je globální tranzitivita sítě Forresta Gumpa výrazně vyšší, než bychom čekali náhodou u náhodných sítí stejné velikosti a hustoty. Globální tranzitivitu Forresta Gumpa můžeš porovnat s 1 000 dalšími náhodnými sítěmi.

Toto cvičení je součástí kurzu

Analýza sítí v R

Zobrazit kurz

Pokyny k cvičení

Tisíc náhodných sítí je uloženo v objektu seznamu gl. Pomocí lapply() a transitivity() vypočítej globální tranzitivitu každé z těchto sítí. Výsledky přiřaď do gl.tr.
Pomocí unlist() převeď gl.tr na číselný vektor gl.trs.
Prozkoumej souhrnné statistiky tranzitivit náhodných sítí pomocí summary().
Vypočítej podíl náhodných grafů, jejichž tranzitivita je vyšší než tranzitivita sítě Forresta Gumpa, kterou jsi dříve vypočítal/a a uložil/a do g.tr.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

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

Upravit a spustit kód