PageRank의 수렴

이 연습 문제에서는 매 반복에서의 차이를 시각화해 PageRank가 어떻게 수렴하는지 확인해 보세요.

이 연습은 강의의 일부입니다

R로 배우는 네트워크 데이터 기반 Predictive Analytics

연습 안내

value라는 이름의 빈 벡터를 만드세요.
15단계의 for 루프를 작성하세요. 루프의 각 단계에서 i번 반복으로 network의 PageRank 값을 계산하고, vector 속성을 cbind()로 value에 열로 추가하세요.
value에 있는 연속된 PageRank 벡터 쌍들의 절대 차이를 계산해 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)

코드 편집 및 실행