data(ITS1, meta)
m <- meta[, c(2,3,5,7)]
## Not run:
# # for usage demonstration purpose only, may not fit the negative
# # binomial distribution model.
# nb <- assist.NB(ITS1, meta=m, rank="g",
# anov.fac="Harvestmethod",
# taxon=rownames(ITS1)[1])
# ## End(Not run)
Run the code above in your browser using DataLab