การลู่เข้าของ PageRank

ในแบบฝึกหัดนี้ จะตรวจสอบการลู่เข้าของค่า PageRank ด้วยการพล็อตกราฟแสดงความแตกต่างระหว่างการวนซ้ำแต่ละสองรอบที่ต่อเนื่องกัน

แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร

การวิเคราะห์เชิงพยากรณ์โดยใช้ข้อมูลเครือข่ายใน R

ดูคอร์ส

คำแนะนำการฝึกหัด

สร้างเวกเตอร์ว่างชื่อ value
เขียนลูป for จำนวน 15 รอบ โดยในแต่ละรอบให้คำนวณค่า PageRank ของ network ด้วย i การวนซ้ำ แล้วเพิ่ม attribute vector เป็นคอลัมน์เข้าไปใน value โดยใช้ cbind()
คำนวณความแตกต่างสัมบูรณ์ระหว่างเวกเตอร์ PageRank แต่ละคู่ที่ต่อเนื่องกันใน value แล้วกำหนดผลลัพธ์ให้กับ difference
พล็อตเวกเตอร์ difference เพื่อตรวจสอบการลู่เข้าของค่า PageRank

แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ

ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์

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

แก้ไขและรันโค้ด