Convergența PageRank

În acest exercițiu, vei inspecta vizual modul în care valorile PageRank converg, reprezentând grafic diferențele dintre fiecare două iterații consecutive.

Acest exercițiu face parte din cursul

Analiză predictivă folosind date de rețea în R

Vezi cursul

Instrucțiuni pentru exercițiu

Creează un vector gol numit value.
Scrie o buclă for cu 15 pași. Pentru fiecare pas, calculează valoarea PageRank a rețelei network cu i iterații. Adaugă atributul vector ca o coloană la value folosind cbind().
Calculează diferența absolută dintre fiecare pereche consecutivă de vectori PageRank din value și atribuie rezultatul variabilei difference.
Reprezintă grafic vectorul difference pentru a inspecta convergența valorilor PageRank.

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

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

Editează și rulează codul