# NOT RUN {
# }
# NOT RUN {
hc <- hclust(dist(USArrests), "ave")
dend1 <- as.dendrogram(hc)
plot_dendro(dend1, height = 600) %>%
hide_legend() %>%
highlight(persistent = TRUE, dynamic = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace