ci2adj: Get adjacency matrix for estimated networks based on credible...
In kevinmcgregor/mdine: Microbiome Differential Network Estimation

Description Usage Arguments Value Examples

View source: R/post_functions.R

Get adjacency matrix for estimated networks based on credible intervals

1	ci2adj(obj, weighted = FALSE)

`obj`	An object of class `mdine`
`weighted`	Logical: should the adjacency matrices be weighted according to the corresponding partial correlation matrix?

A list containing adjacency matrices for the two estimated precision matrices

library(mdine)
data(crohns)

X <- model.matrix(~disease, data=crohns$covars)
md.fit <- mdine(Y=crohns$otu.counts, X=X, Z=X[,2], mc.cores=1, iter=1000)
adj <- ci2adj(md.fit, weighted = TRUE)