Sự hội tụ của PageRank
Trong bài tập này, bạn sẽ trực quan kiểm tra cách PageRank hội tụ bằng cách vẽ biểu đồ chênh lệch giữa hai lần lặp liên tiếp.
Bài tập này là một phần của khóa học
Phân tích dự đoán với dữ liệu mạng trong R
Hướng dẫn bài tập
- Tạo một vector rỗng tên là
value. - Viết một vòng lặp
forvới 15 bước. Ở mỗi bước, tính giá trị PageRank củanetworkvớiilần lặp. Thêm thuộc tínhvectorlàm một cột vàovaluebằngcbind(). - Tính độ chênh tuyệt đối giữa mỗi cặp vector PageRank liên tiếp trong
valuevà gán vàodifference. - Vẽ vector
differenceđể kiểm tra sự hội tụ của các giá trị PageRank.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
# 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)