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

<cours>Analytique prédictive avec des données en réseau sous R</cours>

Voir le cours

Instructions de l’exercice

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 ce code d’exemple.

# 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