# NOT RUN {
hc <- hclust(dist(USArrests[2:9, ]), "com")
dend <- as.dendrogram(hc)
par(mfrow = c(1, 2))
plot(dend, main = "original tree")
plot(raise.dendrogram(dend, 100), main = "Raised tree")
# }
Run the code above in your browser using DataCamp Workspace