Convergenza di PageRank

In questo esercizio esaminerai visivamente come i valori di PageRank convergono tracciando le differenze tra ogni coppia di iterazioni successive.

Questo esercizio fa parte del corso

Analitica predittiva con dati di rete in R

Visualizza il corso

Istruzioni dell'esercizio

Crea un vettore vuoto chiamato value.
Scrivi un ciclo for con 15 passi. A ogni passo del ciclo, calcola il valore di PageRank di network con i iterazioni. Aggiungi l'attributo vector come colonna a value usando cbind().
Calcola la differenza assoluta tra ciascuna coppia successiva di vettori PageRank in value e assegnala a difference.
Traccia il vettore difference per ispezionare la convergenza dei valori di PageRank.

Esercizio pratico interattivo

Prova a risolvere questo esercizio completando il codice di esempio.

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

Modifica ed esegui il codice