hc <- hclust(dist(USArrests[1:4,]), "ave")
dend <- as.dendrogram(hc)
get_branches_heights(dend)
## Not run:
# dat1 <- iris[1:150,-5]
# dat1 <- rbind(dat1,dat1,dat1,dat1,dat1,dat1,dat1)
# dend = as.dendrogram(hclust(dist(dat1)))
# library(microbenchmark)
# library(dendextendRcpp)
# microbenchmark(
# dendextendRcpp::dendextendRcpp_get_branches_heights(dend),
# old_get_branches_heights(dend,sort=F)
# )
# ## End(Not run)
Run the code above in your browser using DataLab