# NOT RUN {
data(phy); data(cla); data(ord); data(fam); data(clin)
otu_tabs = list(Phylum = phy, Class = cla, Order = ord, Family = fam)
set <- tidy_micro(otu_tabs = otu_tabs, clinical = clin) %>%
filter(day == 7) ## Only including the first week
filter_set <- set %>%
otu_filter(prev_cutoff = 5, ## 5% of subjects must have this bug, or it is filtered
ra_cutoff = 1, ## At least 1 subject must have RA of 1, or it is filtered
exclude_taxa = c("Unclassified", "Bacteria") ## Unclassified taxa we don't want
)
# }
Run the code above in your browser using DataLab