Convergencia de PageRank

En este ejercicio, inspeccionarás visualmente cómo convergen los valores de PageRank representando las diferencias entre cada dos iteraciones consecutivas.

Este ejercicio forma parte del curso

Analítica predictiva con datos conectados en R

Ver curso

Instrucciones del ejercicio

Crea un vector vacío llamado value.
Escribe un bucle for con 15 pasos. En cada paso del bucle, calcula el valor de PageRank de network con i iteraciones. Añade el atributo vector como una columna a value usando cbind().
Calcula la diferencia absoluta entre cada par consecutivo de vectores de PageRank en value y asígnala a difference.
Representa el vector difference para inspeccionar la convergencia de los valores de PageRank.

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

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

Editar y ejecutar código