raise.dendrogram(dend, heiget_to_add, ...)
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 DataLab