# This failed before - now it works fine. (thanks to Martin Maechler)
dend <- 1:2 %>%
dist() %>%
hclust() %>%
as.dendrogram()
dend %>%
set("branches_lty", 1:2) %>%
set("branches_col", c("topbranch_never_plots", "black", "orange")) %>%
plot()
if (FALSE) {
dend <- USArrests[1:5, ] %>%
dist() %>%
hclust() %>%
as.dendrogram()
plot(dend)
dend <- assign_values_to_branches_edgePar(dend = dend, value = 2, edgePar = "lwd")
plot(dend)
dend <- assign_values_to_branches_edgePar(dend = dend, value = 2, edgePar = "col")
plot(dend)
dend <- assign_values_to_branches_edgePar(dend = dend, value = "orange", edgePar = "col")
plot(dend)
dend2 <- assign_values_to_branches_edgePar(dend = dend, value = 2, edgePar = "lty")
plot(dend2)
dend2 %>%
unclass() %>%
str()
}
Run the code above in your browser using DataLab