R语言计算每个网页的pagerank

                           R语言计算每个网页的pagerank
  下面是R语言的代码： Normal 0 7.8 磅 0 2 false false false EN-US ZH-CN X-NONE

U = matrix(rep(1,times=16),4)

a= 0.85

G = a * S + ((1-a) * 1/4) * U

q0 =(1,4)

q = q0

repeat {

  q = G%*% q

  d = (matrix(c(q,q0),2,byrow=TRUE), euclidean")

  if (d <1e-6 ) break

  q0 = q

}   

print(q)

Normal 0 7.8 磅 0 2 false false false EN-US ZH-CN X-NONE Normal 0 7.8 磅 0 2 false false false EN-US ZH-CN X-NONE

转载于:http://blog.itpub.net/26857237/viewspace-745536/