# NOT RUN {
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)
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab