# NOT RUN {
data(mrsa_gen); data(mrsa_clin)
## Creating tidyMicro set
set <- tidy_micro(otu_tabs = mrsa_gen, tab_names = "Genus", clinical = mrsa_clin)
## Filtering out unwanted OTUs
filt.set <- otu_filter(set, prev_cutoff = 1, ra_cutoff = 1, filter_summary = FALSE)
## Extract filtered OTU table
filt.otu.cts <- micro_otu(filt.set, table = "Genus")
## Extract filtered relative abundances table
filt.otu.ra <- micro_otu(filt.set, table = "Genus", taxa_info = ra)
# }
Run the code above in your browser using DataLab