Konvergence PageRanku

V tomto cvičení vizuálně prozkoumáš, jak hodnoty PageRanku konvergují – vykreslíš rozdíly mezi každými dvěma po sobě jdoucími iteracemi.

Toto cvičení je součástí kurzu

Prediktivní analytika pomocí síťových dat v R

Zobrazit kurz

Pokyny k cvičení

Vytvoř prázdný vektor s názvem value.
Napiš smyčku for s 15 kroky. V každém kroku vypočítej hodnotu PageRanku sítě network s i iteracemi. Přidej atribut vector jako sloupec do value pomocí cbind().
Vypočítej absolutní rozdíl mezi každou dvojicí po sobě jdoucích vektorů PageRanku v value a výsledek ulož do proměnné difference.
Vykresli vektor difference, abys ověřil/a konvergenci hodnot PageRanku.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

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

Upravit a spustit kód