ネットワーク内の各ノードの推移性を判断する必要がありますが、一貫性のない結果が得られます。
set.seed(123)
a <- rbinom(144, 1, .5)
b <- graph.adjacency(matrix(a, nrow = 12, ncol = 12), mode = "undirected")
transitivity(b, type = "local")
これにより、次の出力が得られます。
[1] 0.6888889 0.4909091 0.4444444 0.9333333 0.4909091 0.7500000 0.7333333 0.4666667 0.7333333 0.4222222 0.5000000
[12] 0.6944444
しかし、単一のノードを指定しようとすると、出力の一部の値が一致しません。
transitivity(b, vids = 2, type = "local")
[1] 0.75
実際、すべての頂点のローカル推移性を計算しようとすると、vids 引数を省略した場合とは多くの点が異なります。私がこれを試したいくつかの例では、すべてが異なっていました。
transitivity(b, vids = V(b), type = "local")
[1] 0.6888889 0.7500000 0.7142857 0.9333333 0.7500000 0.7500000 0.7333333 0.7500000 0.7333333 0.6785714 0.8571429
[12] 0.6944444
vids を NULL として設定すると、vids 引数がまったく含まれていない最初の出力と一致します。
結果はわずかに異なりますが、有向ネットワークを作成しても一致しません。
これを引き起こしている可能性があるもの、またはどの結果セットを使用する必要があるかについての考えはありますか?
ご協力ありがとうございました。