PageRank का Convergence

इस अभ्यास में, आप हर दो क्रमिक iterations के अंतर को प्लॉट करके देखेंगे कि PageRank मान कैसे converge होते हैं.

यह अभ्यास पाठ्यक्रम का हिस्सा है

R में नेटवर्क्ड डेटा का उपयोग करके Predictive Analytics

अभ्यास निर्देश

value नाम का एक खाली वेक्टर बनाएँ.
15 स्टेप वाला एक for लूप लिखें. लूप के हर स्टेप पर, i iterations के साथ network का PageRank मान compute करें. vector attribute को cbind() का उपयोग करके value में एक कॉलम के रूप में जोड़ें.
value में मौजूद हर क्रमिक PageRank वेक्टर-युगल के बीच का absolute difference निकालें और उसे difference में असाइन करें.
PageRank मानों के convergence को जाँचने के लिए difference वेक्टर को प्लॉट करें.

इंटरैक्टिव व्यावहारिक अभ्यास

इस अभ्यास को इस नमूना कोड को पूरा करके आज़माएँ।

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

कोड संपादित करें और चलाएँ