Convergentie van PageRank

In deze oefening ga je visueel bekijken hoe de PageRanks convergeren door de verschillen van elke twee opeenvolgende iteraties te plotten.

Deze oefening maakt deel uit van de cursus

Predictive Analytics met netwerkgdata in R

Cursus bekijken

Oefeninstructies

Maak een lege vector met de naam value.
Schrijf een for-lus met 15 stappen. Bereken in elke stap de PageRank-waarde van network met i iteraties. Voeg het attribuut vector als kolom toe aan value met cbind().
Bereken het absolute verschil tussen elke opeenvolgende paar PageRank-vectoren in value en ken dit toe aan difference.
Plot de vector difference om de convergentie van de PageRank-waarden te bekijken.

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

# Create an empty vector
___ <- c()

# Write a loop to compute PageRank 
for(i in 1:___){
  value <- cbind(value, page.rank(___, algo = 'power',options = list(niter = ___))$vector)
}
  
# Compute the differences 
difference <- colSums(abs(___[,1:14] - ___[,2:15]))

# Plot the differences
___(1:14, difference)

Code bewerken en uitvoeren