# NOT RUN {
# define dendrogram object to play with:
hc <- hclust(dist(USArrests[1:5, ]), "ave")
dend <- as.dendrogram(hc)
# get_leaves_edgePar(dend) # error :)
get_leaves_edgePar(dend)
dend <- color_branches(dend, k = 3)
get_leaves_edgePar(dend)
get_leaves_edgePar(dend, TRUE)
dend <- dend %>% set("branches_lwd", c(2, 1, 2))
get_leaves_edgePar(dend)
plot(dend)
# }
Run the code above in your browser using DataLab