data(ITS1, meta)
# taxa shared by 50 percent samples of each city
core <- core.Taxa(data=list(ITS1=ITS1), is.OTU=TRUE, meta=meta,
rank="g", meta.factor="City", percent=0.5)
## Not run:
# data(ITS1, ITS2, meta)
# core <- core.Taxa(data=list(ITS1=ITS1, ITS2=ITS2), is.OTU=TRUE,
# meta=meta, rank="g", meta.factor="City",
# percent=0.7)
# # use taxonomy abundance matrix
# g1<-tax.abund(ITS1, rank="g")
# core <- core.Taxa(data=list(genus_ITS1=g1), is.OTU=FALSE,
# meta=meta, rank="g", meta.factor="City",
# percent=0.9)
# ## End(Not run)
Run the code above in your browser using DataLab