Convergence de PageRank

Dans cet exercice, vous allez examiner visuellement comment les scores PageRank convergent en traçant les différences entre deux itérations consécutives.

Cet exercice fait partie du cours

Analytique prédictive avec des données en réseau sous R

Afficher le cours

Instructions

Créez un vecteur vide nommé value.
Écrivez une boucle for de 15 étapes. À chaque étape de la boucle, calculez la valeur PageRank de network avec i itérations. Ajoutez l’attribut vector comme colonne à value avec cbind().
Calculez la différence absolue entre chaque paire consécutive de vecteurs PageRank dans value et affectez-la à difference.
Tracez le vecteur difference pour examiner la convergence des valeurs PageRank.

Exercice interactif pratique

Essayez cet exercice en complétant cet exemple de code.

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

Modifier et exécuter le code