Iterates Kleinberg's (1999) mutually reinforcing updates: a page is
a good hub if it points to good authorities, and a good authority
if it is pointed to by good hubs. With A[i, j] = 1 for a
link from i to j, the sweep is
\(a \leftarrow A^\top h\), \(h \leftarrow A a\), each
normalised to unit L2 length.
Value
A list with estimate (the top hub score),
hubs, authorities, top_hub (1-based),
n, iters, method.
References
Kleinberg, J. M. (1999). Authoritative sources in a hyperlinked environment. Journal of the ACM, 46(5), 604-632.
Examples
A <- matrix(c(4, 1, 0.5, 1, 3, 0.8, 0.5, 0.8, 2), nrow = 3)
res <- morie_hits(A = A)
res
#> $estimate
#> [1] 0.7879955
#>
#> $hubs
#> [1] 0.7879955 0.5438751 0.2885531
#>
#> $authorities
#> [1] 0.7879955 0.5438751 0.2885531
#>
#> $top_hub
#> [1] 1
#>
#> $n
#> [1] 3
#>
#> $iters
#> [1] 50
#>
#> $method
#> [1] "alternating I/O operations of Kleinberg (1999) sect. 3, L2-normalised"
#>