polarolouis/human-microbiome-compendium
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix a typo 'the_data' to 'phylo_data'

Browse source
This commit is contained in:
Louis 2026-01-23 15:30:33 +01:00
parent d7919e3098
commit e53e3740f6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
utils.R
View file

@ -65,7 +65,7 @@ collapse_otu_at_taxo <- function(phylo_data, NArm = TRUE, renameOTUs = TRUE) {
tax_ranks <- colnames(tax_table(phylo_data)) tax_ranks <- colnames(tax_table(phylo_data))
tax_df <- tax_table(phylo_data) tax_df <- tax_table(phylo_data)
otu_tables_by_rank <- lapply(tax_ranks, function(rank) { otu_tables_by_rank <- lapply(tax_ranks, function(rank) {
ps_glom <- tax_glom(the_data, taxrank = rank, NArm = NArm) ps_glom <- tax_glom(phylo_data, taxrank = rank, NArm = NArm)
otu <- as.data.frame(otu_table(ps_glom)) otu <- as.data.frame(otu_table(ps_glom))
# Ensure taxa are rows # Ensure taxa are rows