Mathematicaフォーラムに載っている事例で練習してみる。 # この図を再分析してみる # http://www.mathforum.jp/uservisit/05seijikeizai/zu1.gif library(igraph) adjm <- matrix(c(0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 1,0,0,1,1,0,0,0,0,0,0,…