如何解决计算矩阵列表的模块化
我有以下矩阵列表:
dput(net.nulls.r2d)
list(`plant-caterpillar` = list(structure(c(0L,1L,0L,2L,17L,3L,0L),.Dim = 9:10),structure(c(0L,.Dim = 9:10)),`caterpillar-parasitoid` = list(
structure(c(0L,.Dim = c(15L,10L)),structure(c(1L,10L))))
我需要将 computeModules
中的函数 library(bipartite)
应用到我的矩阵列表中。从输出 res
(它是类 moduleWeb
的对象)中,我只需要提取 res@likelihood
的输出。下面是示例矩阵的输出示例。
library(`bipartite`)
ex<- data(small1976)
res<-computeModules(ex)
res
res@likelihood
要应用于矩阵列表并输出计算值列表,我尝试过:
library(`tidyverse`)
library(`bipartite`)
output<-map(
list,~map(
map(.x,computeModules,),"likelihood"
)
)
预期输出将是列表列表,其中对于 plant-caterpillar
和 caterpillar-parasitoid
下的每个矩阵,都会列出计算出的模块性值。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。