Konvergenz von PageRank

In dieser Übung untersuchst du visuell, wie die PageRank-Werte konvergieren, indem du die Unterschiede zwischen jeweils zwei aufeinanderfolgenden Iterationen plottest.

Diese Übung ist Teil des Kurses

Predictive Analytics mit vernetzten Daten in R

Kurs anzeigen

Anleitung zur Übung

Erstelle einen leeren Vektor namens value.
Schreibe eine for-Schleife mit 15 Schritten. Berechne in jedem Schritt den PageRank-Wert von network mit i Iterationen. Füge das Attribut vector mit cbind() als Spalte zu value hinzu.
Berechne die absolute Differenz zwischen jedem aufeinanderfolgenden Paar von PageRank-Vektoren in value und weise sie difference zu.
Plotte den Vektor difference, um die Konvergenz der PageRank-Werte zu überprüfen.

Interaktive Übung

Vervollständige den Beispielcode, um diese Übung erfolgreich abzuschließen.

# 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 bearbeiten und ausführen