PageRanks konvergens

I den här övningen ska du visuellt undersöka hur PageRank-värdena konvergerar, genom att plotta skillnaderna mellan varje par av efterföljande iterationer.

Den här övningen är en del av kursen

Prediktiv analys med nätverksdata i R

Visa kurs

Övningsinstruktioner

Skapa en tom vektor med namnet value.
Skriv en for-loop med 15 steg. Beräkna PageRank-värdet för network med i iterationer för varje steg i loopen. Lägg till attributet vector som en kolumn i value med hjälp av cbind().
Beräkna den absoluta skillnaden mellan varje par av efterföljande PageRank-vektorer i value och tilldela resultatet till difference.
Plotta vektorn difference för att undersöka hur PageRank-värdena konvergerar.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

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

Redigera och kör kod