# NOT RUN {
data(bpd_cla); data(bpd_clin)
set <- tidy_micro(otu_tabs = bpd_cla, tab_names = "Class", clinical = bpd_clin,
prev_cutoff = 5, ra_cutoff = 0.1, exclude_taxa = c("Unclassified", "Bacteria")) %>%
filter(day == 7) ## Only including the first week
## Rank sum test on every taxa's relative abundance
set %>% micro_rank_sum(table = "Class", grp_var = bpd1)
## Rank sum test on every taxa whose model didn't converge
nb_cla <- nb_mods(set, table = "Class", bpd1)
micro_rank_sum(micro_set = set, table = "Class",
grp_var = bpd1, mod = nb_cla)
# }
Run the code above in your browser using DataLab