PageRank'in Yakınsaması

Bu egzersizde, her iki ardışık iterasyonun farklarını çizerek PageRank'lerin nasıl yakınsadığını görsel olarak inceleyeceksin.

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

R ile Ağ Verileri Kullanarak Predictive Analytics

Kursa Göz Atın

Egzersiz talimatları

value adlı boş bir vektör oluştur.
15 adımlı bir for döngüsü yaz. Döngüde her adım için, network üzerinde i iterasyonla PageRank değerini hesapla. vector özniteliğini cbind() kullanarak value'a sütun olarak ekle.
value içindeki her ardışık PageRank vektörü çifti arasındaki mutlak farkı hesapla ve difference değişkenine ata.
PageRank değerlerinin yakınsamasını incelemek için difference vektörünü görselleştir.

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