Upsample a counts table to a higher taxon level

Upsample a counts table to a higher taxon level

upsample_counts(counts_table, tax_table, higher_level)

Arguments

counts_table	A organism x sample data frame of counts
tax_table	A organism x taxlev data frame of labels
higher_level	Higher taxon level to upsample to

Value

A organism x sample data frame of counts

Examples

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")