# 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
## Not run:
#
# 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
#
#
#
#
# ## End(Not run)
Run the code above in your browser using DataLab