# NOT RUN {
data(wine)
X.quanti <- wine[,c(3:29)]
X.quali <- wine[,c(1,2)]
tree <- hclustvar(X.quanti,X.quali)
plot(tree)
# 2 plots on 1 page
par(mfrow = c(1, 2))
plot(tree)
# plot just the dendrogram
plot(tree,which=1)
# }
Run the code above in your browser using DataLab