根据Opsahl等人的加权程度。 （2010年）

Question

我想计算我正在使用的网络的加权度。为此，我想使用Opsahl等人提出的degree_w函数。 （2010年）。在将它与我的网络一起使用之前，我想用玩具模型稍微玩一下，以便更好地感受它。

然而，事实证明，无论我为调整参数alpha选择什么，degree_w仍然对它不敏感。当我使用alpha = 1计算时，我得到与标准degree相同的值（这是预期的）。问题在于，当我尝试使用alpha = 0.5或alpha = 1.5时，值不会发生变化。有人能告诉我我做错了吗？

这是我的模特：

library("tnet")
net <- cbind(c(1,1,2,2,2,3), c(2,3,3,4,5,2), c(2,1,2,1,3,2))
degree_w(net, alpha = 1.0)
     node degree output
[1,]    1      2      3
[2,]    2      3      6
[3,]    3      1      2
[4,]    4      0      0
[5,]    5      0      0
> degree_w(net, alpha = 1.5)
     node degree output
[1,]    1      2      3
[2,]    2      3      6
[3,]    3      1      2
[4,]    4      0      0
[5,]    5      0      0
degree_w(net, alpha = 0.5)
     node degree output
[1,]    1      2      3
[2,]    2      3      6
[3,]    3      1      2
[4,]    4      0      0
[5,]    5      0      0

Answer 1

尝试：

degree_w(net, alpha = 1.0,measure="alpha")

关于此功能的文档不是很好。