Rでページランクの計算
package igraphをインストールした後。
ノートPCでかなり大きい行列
まで求められた。
libray(igraph) in1<-c(0,0,1,2) out1<-c(1,2,2,0) x_y <- cbind(out1,in1) g<-as.directed(graph.edgelist(x_y)) p<-page.rank(g) tkplot(g) p$vector
Rでページランクの計算
package igraphをインストールした後。
ノートPCでかなり大きい行列
まで求められた。
libray(igraph) in1<-c(0,0,1,2) out1<-c(1,2,2,0) x_y <- cbind(out1,in1) g<-as.directed(graph.edgelist(x_y)) p<-page.rank(g) tkplot(g) p$vector