hc <- hclust(dist(USArrests[1:4,]), "ave")
dend <- as.dendrogram(hc)
get_branches_heights(dend)
dat1 <- iris[1:150,-5]
dat1 <- rbind(dat1,dat1,dat1,dat1,dat1,dat1,dat1)
dend_big = as.dendrogram(hclust(dist(dat1)))
require(microbenchmark)
require(dendextendRcpp)
microbenchmark(dendextend_get_branches_heights(dend_big),
get_branches_heights(dend_big),
dendextendRcpp::get_branches_heights(dend_big),
times = 10)
# ~148 times faster! (for larger trees)Run the code above in your browser using DataLab