Ｒのグラフィックスもどる 複雑系ネットワーク クラスター係数の計算 無向グラフにおけるあるノードのクラスター係数とは、そのノードと（直接）リンクの張られているノード間にリンクが張られている割合のこと。例、ノードAはノードB,C,Dとリンクで結ばれており、B,C,Dの間ではB,C間だけリンクが張られているとすると、ノードAのクラスター係数は3分の1（B,D間とC,D間のリンクが張られていないため、B,C,D間の可能なリンク3本のうち、1本しかリンクがない）。 リンクリスト（片方向リンク）bbとノード数mを与えて、すべてのノードのクラスター係数を計算する。 clust = function(bb, m) { cl = rep(0,m); for(k in 1:m) { ed = sort(c(bb[which(bb[,1]==k),2], bb[which(bb[,2]==k),1])) # kを端点とするリ
