# NOT RUN {
# }
# 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)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab