data(iris)
irisMatrix <- iris[,1:4]
hcTree <- hc(modelName="VVV", data = irisMatrix)
cl <- hclass(hcTree,c(2,3))
par(pty = "s", mfrow = c(1,1))
clPairs(irisMatrix,cl=cl[,"2"])
clPairs(irisMatrix,cl=cl[,"3"])
Run the code above in your browser using DataLab