igraph でページランク
test.net
1 2
3 4
2 1
k<-read.table("directedkan.net") g<-graph.data.frame(k) page<-page.rank(g) pagerank<-(page)$vector s<-get.vertex.attribute(g,"name") s<-V(g) d1<-data.frame((s)$name,pagerank) write.table(d1,file="pagerank.dat",row.names=F,col.names=F)
