Збіжність PageRank

У цій вправі ви візуально перевірите, як збігаються значення PageRank, побудувавши різниці між кожними двома послідовними ітераціями.

Ця вправа є частиною курсу

Прогнозна аналітика з мережевими даними в R

Переглянути курс

Інструкції до вправи

Створіть порожній вектор з назвою value.
Напишіть цикл for на 15 кроків. Для кожного кроку в циклі обчисліть значення PageRank для network з i ітераціями. Додайте атрибут 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)

Редагувати та запускати код