# NOT RUN {
data(wine)
X.quanti <- PCAmixdata::splitmix(wine)$X.quanti
X.quali <- PCAmixdata::splitmix(wine)$X.quali
tree <- hclustvar(X.quanti,X.quali)
plot(tree)
#Aggregation levels plot
plot(tree,type="index")
# }
Run the code above in your browser using DataLab