data(ITS1, meta)
## Not run:
# ITS1.1<-filter.OTU(data=list(ITS1=ITS1), percent=0.01)[[1]]
# factors=c("Crop", "City")
# phylog_taxonomy(otu=ITS1.1, rank="family", rank.sep="; ",
# meta=meta, factors=NULL, sel.taxon=NULL,
# sel.rank=NULL, cleaves=1, cnodes=.5,
# root="k__Fungi", clabel.leaves = 0.5,
# clabel.nodes = 0.5,
# f.phylog = 0.8, sub = TRUE, csub = 1.25,
# possub = "bottomleft", draw.box = TRUE)
# phylog_taxonomy(otu=ITS1.1, rank="family", rank.sep="; ",
# meta=meta, factors=c("Crop", "City", "Plots"),
# sel.taxon=NULL, sel.rank=NULL, cleaves=1,
# cnodes=.5, clabel.leaves = 0.5,
# clabel.nodes = 0.5,
# f.phylog = 0.8, sub = TRUE, csub = 1.25,
# possub = "bottomleft", draw.box = TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab