Analysing chaillou
This commit is contained in:
parent
ec095c69b5
commit
1fc536e0f0
2 changed files with 2 additions and 1 deletions
|
|
@ -11,7 +11,8 @@ library(tidyverse)
|
||||||
library(phyloseq)
|
library(phyloseq)
|
||||||
library(biomformat)
|
library(biomformat)
|
||||||
source("utils.R")
|
source("utils.R")
|
||||||
the_data <- import_biom("data/mach/kinetic.biom")
|
|
||||||
|
the_data <- import_biom("data/chaillou/chaillou.biom")
|
||||||
per_taxa_networks <- collapse_otu_at_taxo(the_data)
|
per_taxa_networks <- collapse_otu_at_taxo(the_data)
|
||||||
otu_df <- sapply(per_taxa_networks, nrow) %>%
|
otu_df <- sapply(per_taxa_networks, nrow) %>%
|
||||||
data.frame() %>%
|
data.frame() %>%
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue