Konvergensi PageRank

Dalam latihan ini, Anda akan meninjau secara visual bagaimana PageRank mengalami konvergensi dengan memplot selisih dari setiap dua iterasi berturut-turut.

Latihan ini adalah bagian dari kursus

Analitik Prediktif menggunakan Data Berjejaring di R

Lihat Kursus

Petunjuk latihan

Buat vektor kosong bernama value.
Tulis perulangan for sebanyak 15 langkah. Pada setiap langkah dalam perulangan, hitung nilai PageRank dari network dengan i iterasi. Tambahkan atribut vector sebagai kolom ke value menggunakan cbind().
Hitung selisih absolut antara setiap pasangan vektor PageRank berturut-turut dalam value dan simpan ke difference.
Plot vektor difference untuk meninjau konvergensi nilai PageRank.

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

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

Edit dan Jalankan Kode