data(ITS1, ITS2, meta)
data<-list(ITS1=ITS1, ITS2=ITS2)
## Not run:
# otu.001 <- filter.OTU(data=data, percent=0.01)
# length(otu.001)
# names(otu.001)
# otu.50 <- filter.OTU(data=data, number=50)
# ## End(Not run)
Run the code above in your browser using DataLab