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