我想为Burt的有效尺寸创建一个函数。 该公式归结为:
有效尺寸= n - 2t / n
我不确定从哪里开始编写/ for igraph。
如果有更多细节会有帮助,请告诉我......
感谢。
答案 0 :(得分:7)
首先模拟基本图表:
require(igraph)
alters = 50
ties = 10
set.seed(12345)
edgelist = rbind(0, 1:alters)
edgelist = cbind(edgelist, replicate(ties, sample(alters, 2)))
g = graph(edgelist, directed=F)
dev.new(width=5, height=5)
plot(g, layout=layout.kamada.kawai)
然后编写一个简单的函数来计算有效大小。 (这里对g
进行操作的函数都很好地记录在igraph
手册和网络上的各种示例中。)
EffectiveSize <- function(g, ego=0) {
n = neighbors(g, ego)
t = length(E(g)[to(n) & !to(ego)])
n = length(n)
n - 2 * t / n
}
> EffectiveSize(g)
[1] 49.6