Сходимость 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)

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