data(ITS1, meta)
# test OTUs
data <- list(ITS1=ITS1, ITS2=ITS2)
assist.ado(data, is.OTU=TRUE,meta=meta, ranks=NULL,
data.trans="log", dist=NULL)
# test taxa at different ranks
ranks <- c("p", "c", "o", "f", "g")
ado <- assist.ado(data, is.OTU=TRUE, meta=meta, ranks=ranks,
data.trans="log", dist="bray" )
# test genera
g1 <- tax.abund(data, rank="g", drop.unclassified=TRUE)
data <- list(g1=g1)
assist.ado(data, is.OTU=FALSE, meta=meta, ranks=NULL,
data.trans="log", dist="bray" )Run the code above in your browser using DataLab