Upsample a counts table to a higher taxon level
upsample_counts(counts_table, tax_table, higher_level)
A organism x sample data frame of counts
A organism x taxlev data frame of labels
Higher taxon level to upsample to
A organism x sample data frame of counts
toy_data <- readRDS(system.file("extdata/toy_data.rds",
package = "animalcules"))
tax_table <- toy_data$tax_table
sam_table <- toy_data$sam_table
counts_table <- toy_data$counts_table
counts_table <- upsample_counts(counts_table, tax_table, "phylum")