Convergence of PageRank

In this exercise, you will visually inspect how the PageRanks converge by plotting the differences of every two subsequent iterations.

Bu egzersiz, kursun bir parçasıdır

Predictive Analytics using Networked Data in R

Kursa Göz Atın

Egzersiz talimatları

Create an empty vector called value.
Write a for loop with 15 steps. For each step in the loop, compute the PageRank value of network with i iterations. Add the vector attribute as a column to value using cbind().
Compute the absolute difference between each subsequent pair of PageRank vectors in value and assign to difference.
Plot the difference vector to inspect the convergence of the PageRank values.

Uygulamalı etkileşimli egzersiz

Bu egzersizi bu örnek kodu tamamlayarak deneyin.

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

Kodu Düzenle ve Çalıştır