Jan 29, 2020
## Import libraries library(ClustOfVar) library(PCAmixdata) library(dendextend) ## Split up continuous and categorical varibles split <- splitmix(PimaIndiansDiabetes2) X1 <- split$X.quanti X2 <- split$X.quali ## Hierarchical clustering tree <- hclustvar(X.quanti = X1, X.quali = X2) ## Evaluate the stability of each partition stability(tree, B=40) ## 60 bootstrap samples ## Plot dend <- tree %>% as.dendrogram %>% hang.dendrogram dend %>% color_branches(k=5) %>% color_labels(k=5) %>% plot(horiz=TRUE)