## Not run:
#
# dend <- USArrests[1:5,] %>% dist %>% hclust("ave") %>% as.dendrogram
#
# plot(dend)
# dend <- assign_values_to_leaves_edgePar(dend=dend, value = c(3,2), edgePar = "col")
# plot(dend)
# dend <- assign_values_to_leaves_edgePar(dend=dend, value = c(3,2), edgePar = "lwd")
# plot(dend)
# dend <- assign_values_to_leaves_edgePar(dend=dend, value = c(3,2), edgePar = "lty")
# plot(dend)
#
# get_leaves_attr(dend, "edgePar", simplify=FALSE)
#
# ## End(Not run)
Run the code above in your browser using DataLab