我使用igraph来计算顶点偏心率,图表是加权的,随机生成如下
n <- 500
g <- sample_smallworld(1, n, 10, 0.05)
E(g)$weight <- (runif(1)+0.1)*10
is.weighed(g)
dia <- diameter(g)
dia
这是一个小型世界网络,有500个顶点和随机加权边。使用diameter
和'is.weighted'来检查它是否已加权。但是,eccentricity
不使用权重,并生成以下结果,
d_list <- eccentricity(g)
summary(d_list)
输出如下,
d_list&lt; - 偏心(g)
摘要(d_list)
闵。第一曲。中位数第3曲。最大
4.000 4.000 4.000 4.004 4.000 5.000
如何解决这个问题?
现在我使用max(distances(g))
来解决它,但我认为这不是一种有效而优雅的方式。