R中邻接矩阵的传递归约

问题描述

我有一个成对矩阵,我可以将其视为图的邻接矩阵。我希望应用传递归约算法来找到边最少但保留原始图的连通性的图 - 见下图。

我的矩阵的头部看起来像这样:

               EN_DavaW      EN_DrumW   CN_ShainW  CN_Glasdrum        19-CCP
EN_DavaW     0.0000000000  2.286985e-03 0.014775598  0.013954988 -0.0149552822
EN_DrumW    -0.0022869851  0.000000e+00 0.013133681  0.011270755 -0.0166146429
CN_ShainW   -0.0147755985 -1.313368e-02 0.000000000 -0.001550990 -0.0244997421
CN_Glasdrum -0.0139549879 -1.127075e-02 0.001550990  0.000000000 -0.0328348644
19-CCP       0.0149552822  1.661464e-02 0.024499742  0.032834864  0.0000000000

在这个矩阵中,正整数可以用从 Pop 1 到 Pop 2 的箭头来表示。而负值则表示从 Pop 2 到 Pop1。

我正在努力寻找可用于 R version 4.02 的软件包,以便在我的矩阵上执行此操作。 我查看了包 nem,更具体地说是函数 nem::transitive.reduction see here,但它不适用于上述版本。即使通过 bioconductor

安装

是否有其他包或者我可以创建自己的函数来对成对矩阵进行传递归约?

Example of transitive reduction

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)