Homework 7

library(igraph)

g <- graph_from_literal(1-+2, 2-+1, 2-+3, 3-+2, 3-+4, 4-+1, 4-+2)
plot(g)

page_rank(g)

$vector
        1         2         3         4 
0.2623208 0.4027974 0.2086889 0.1261928 

$value
[1] 1

$options
NULL