Convergência do PageRank

Neste exercício, você vai inspecionar visualmente como os valores de PageRank convergem, plotando as diferenças entre cada duas iterações subsequentes.

Este exercicio faz parte do curso

Análise Preditiva com Dados em Rede em R

Ver curso

Instruções do exercicio

Crie um vetor vazio chamado value.
Escreva um laço for com 15 passos. A cada passo do laço, calcule o valor de PageRank de network com i iterações. Adicione o atributo vector como uma coluna a value usando cbind().
Calcule a diferença absoluta entre cada par subsequente de vetores de PageRank em value e atribua a difference.
Plote o vetor difference para inspecionar a convergência dos valores de PageRank.

exercicio interativo prático

Tente este exercicio completando este código de exemplo.

# 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 e Executar Código