Aan de slagGa gratis aan de slag

Randomisaties van transitiviteit

Net als bij de gemiddelde padlengte gaan we nu na of de globale transitiviteit van het Forrest Gump-netwerk significant hoger is dan je op basis van toeval zou verwachten voor willekeurige netwerken met dezelfde grootte en dichtheid. Je vergelijkt Forrest Gumps globale transitiviteit met 1000 andere willekeurige netwerken.

Deze oefening maakt deel uit van de cursus

Netwerkanalyse in R

Cursus bekijken

Oefeninstructies

  • In het lijstobject gl staan duizend willekeurige netwerken. Gebruik lapply() en transitivity() om de globale transitiviteit van elk van deze netwerken te berekenen. Sla de resultaten op in gl.tr.
  • Gebruik unlist() om gl.tr om te zetten naar een numerieke vector gl.trs.
  • Bekijk de samenvattende statistieken van de transitiviteiten van de willekeurige netwerken met summary().
  • Bereken het aandeel willekeurige grafen met een hogere transitiviteit dan die van het Forrest Gump-netwerk, die je eerder hebt berekend en opgeslagen in g.tr.

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

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 > ___)
Code bewerken en uitvoeren