# pagerank
# https://gowrishankar.info/blog/eigenvalue-eigenvector-eigenspace-and-implementation-of-googles-pagerank-algorithm/

library(readxl)
library(dplyr)

dados <- read_excel("pagerank_aula_resolvido.xlsx", 
              sheet = "calculo", range = "B123:M134")
matriz <- dados %>% select(-Pessoa)

matriz <- as.matrix(matriz)

# calculo de autovalores

autos <- eigen(matriz)

valores <- autos$values
valores
abs(valores)

p <- autos$vectors
p
autovetor1 <- p[,1]

abs.autovetor1 <- abs(autovetor1)

pagerank <- abs.autovetor1/sum(abs.autovetor1)
pagerank