# NOT RUN {
# }
# NOT RUN {
dend <- USArrests[1:5,] %>% dist %>% hclust %>% as.dendrogram
dend <- color_branches(dend, 3)
par(mfrow = c(1,2))
plot(dend)
plot(remove_branches_edgePar(dend))
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace