Selects a subset of consortia from a
ConsortiumMetabolismSet, returning a fully
recomputed ConsortiumMetabolismSet containing
only the selected consortia.
Usage
filterConsortia(object, i)
# S4 method for class 'ConsortiumMetabolismSet'
filterConsortia(object, i)Methods (by class)
filterConsortia(ConsortiumMetabolismSet): Filter consortia from aConsortiumMetabolismSet
Examples
cm1 <- synCM("a", n_species = 3, max_met = 5)
cm2 <- synCM("b", n_species = 3, max_met = 5)
cms <- ConsortiumMetabolismSet(cm1, cm2, name = "test")
#>
#> ── Creating CMS "test" ─────────────────────────────────────────────────────────
#> ℹ Validating 2 <ConsortiumMetabolism> objects
#> ✔ Validating 2 <ConsortiumMetabolism> objects [11ms]
#>
#> ℹ Collecting metabolites from 2 consortia
#> ✔ Collecting metabolites from 2 consortia [29ms]
#>
#> ℹ Re-indexing 6 unique metabolites
#> ✔ Re-indexing 6 unique metabolites [26ms]
#>
#> ℹ Expanding 2 binary matrices to 6-dimensional space
#> ✔ Expanding 2 binary matrices to 6-dimensional space [23ms]
#>
#> ℹ Computing 6 x 6 levels matrix
#> ✔ Computing 6 x 6 levels matrix [24ms]
#>
#> ℹ Computing pairwise overlap (1 pairs via crossprod)
#> ✔ Computing pairwise overlap (1 pairs via crossprod) [22ms]
#>
#> ℹ Assembling pathway data from 2 consortia
#> ✔ Assembling pathway data from 2 consortia [38ms]
#>
#> ℹ Building dendrogram from 2 x 2 dissimilarity matrix
#> ✔ Building dendrogram from 2 x 2 dissimilarity matrix [20ms]
#>
#> ℹ Extracting dendrogram node positions
#> ✔ Extracting dendrogram node positions [22ms]
#>
#> ℹ Collecting 2 consortium graphs
#> CMS "test" created: 2 consortia, 6 metabolites (0.2s)
#> ✔ Collecting 2 consortium graphs [75ms]
#>
filterConsortia(cms, 1L)
#>
#> ── ConsortiumMetabolismSet
#> Name: "test"
#> 1 consortia, 3 species, 6 metabolites.
#> Community size (species): min 3, mean 3, max 3.
#> Community size (metabolites): min 5, mean 5, max 5.
#> Species: 2 generalists, 1 specialists (quantile = 0.15).