Convergence de PageRank

Dans cet exercice, vous allez examiner visuellement comment les valeurs de PageRank convergent en traçant les écarts entre chaque paire d'itérations consécutives.

Cette activité fait partie du cours

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

Voir le cours

Instructions de l’exercice

Créez un vecteur vide nommé value.
Écrivez une boucle for de 15 étapes. À chaque étape, 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 assignez-la à difference.
Tracez le vecteur difference pour examiner la convergence des valeurs de 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