## Not run:
# hc <- hclust(dist(USArrests), "ave")
#
# dendroNetwork(hc, height = 600)
# dendroNetwork(hc, treeOrientation = "vertical")
#
# dendroNetwork(hc, height = 600, linkType = "diagonal")
# dendroNetwork(hc, treeOrientation = "vertical", linkType = "diagonal")
#
# dendroNetwork(hc, textColour = c("red", "green", "orange")[cutree(hc, 3)],
# height = 600)
# dendroNetwork(hc, textColour = c("red", "green", "orange")[cutree(hc, 3)],
# treeOrientation = "vertical")
# ## End(Not run)
Run the code above in your browser using DataLab