data(ITS1, ITS2, meta)
meta.new <- head(meta)
# for demonstration purposes only, Not recommend to combine
# ITS1 and ITS2 otu tables that both regions were extracted from
# long NGS sequences
comb <- combine.OTU(data=list(ITS1=ITS1, ITS2=ITS2), meta=meta.new)
stopifnot(identical(colnames(comb)[1:(ncol(comb)-1)],
rownames(meta.new)))Run the code above in your browser using DataLab