知識が増えてくると、そのすべてを常に使っているわけではないようだ ２つの用語が何か関係していそうだけれど、どうしてそう思うのか？と考える ひとまず２つの用語を選ぶ ついでその２用語ノードをつないでみる つなぐときには最短距離にしよう 最短距離の…

# 全ノードの最短距離は求めておく sh.paths.mat <- shortest.paths(g.plus) # その上で、 show.neighbors <- function(g,vs,L=1){ tmp <- (sh.paths.mat[vs,] <= L) if(length(vs)>1){ neighbors <- sign(apply(tmp,2,sum)) }else{ neighbors <- sign(tmp) …