# NOT RUN {
#quantitative variables
data(decathlon)
tree <- hclustvar(decathlon[,1:10])
plot(tree)
#qualitative variables with missing values
data(vnf)
tree_NA <- hclustvar(X.quali=vnf)
plot(tree_NA)
dev.new()
vnf2<-na.omit(vnf)
tree <- hclustvar(X.quali=vnf2)
plot(tree)
#mixture of quantitative and qualitative variables
data(wine)
X.quanti <- wine[,c(3:29)]
X.quali <- wine[,c(1,2)]
tree <- hclustvar(X.quanti,X.quali)
plot(tree)
# }
Run the code above in your browser using DataLab