data(ITS1, meta)
m <- meta[, c(2,3,5,7)]
# 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])Run the code above in your browser using DataLab