data(ITS1, meta)
its1<- filter.OTU(data=list(ITS1=ITS1), percent=0.001)[[1]]
factors=c("City", "Crop", "Harvestmethod", "Ergosterol_ppm")
## Not run:
# # plot sites
# ord1 <- OTU.ord(its1, meta=meta, data.trans="total",
# factors=factors, mode="cca", biplot.sig=0.1,
# taxa=20, biplot.scale=1.5, cex.point=5,
# plot.species=FALSE, rank="f", plot.scaling=3,
# group=c(City="City", Crop="Crop"))
# # plot taxa
# ord2 <- OTU.ord(its1, meta=meta, data.trans="total",
# plot.scaling=-1,
# factors=factors, mode="cca", biplot.sig=0.1,
# taxa=20, biplot.scale=3, cex.point=3,
# plot.species=TRUE, rank="g")
# ## End(Not run)
Run the code above in your browser using DataLab