# 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 first week
# }
# NOT RUN {
set_fam_alpha <- set %>% alpha_div(table = "Family", min_depth = 5000, min_goods = 90)
set_fam_alpha %>% micro_alpha_reg(table = "Family", bpd1)
# }
Run the code above in your browser using DataLab