Sho Tsugawa's Homepage:情報メディア実験

> library(igraph)
> g<-erdos.renyi.game(n=200,p=0.05)
> degree(g) # 次数中心性
> closeness(g) #近接中心性
> betweenness(g) # 媒介中心性

ファイルに書き出したい場合は次のようにすればよい

> b<-betweenness(g)
> write.table(b,"bet.txt",quote=F,col.names=F)