Zbieżność PageRank

W tym ćwiczeniu sprawdzisz wizualnie, jak wartości PageRank osiągają zbieżność, rysując wykres różnic między kolejnymi iteracjami.

To ćwiczenie jest częścią kursu

Predykcyjna analityka sieciowa w R

Zobacz kurs

Instrukcje do ćwiczenia

Utwórz pusty wektor o nazwie value.
Napisz pętlę for wykonującą 15 kroków. W każdym kroku oblicz wartość PageRank sieci network dla i iteracji. Dodaj atrybut vector jako kolumnę do value za pomocą cbind().
Oblicz bezwzględną różnicę między każdą kolejną parą wektorów PageRank w value i przypisz wynik do zmiennej difference.
Narysuj wykres wektora difference, aby sprawdzić zbieżność wartości PageRank.

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

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

Edytuj i uruchom kod