hcTree <- hc(modelName = "VVV", data = iris[,-5])
cl <- hclass(hcTree,c(2,3))
## Not run:
# par(pty = "s", mfrow = c(1,1))
# clPairs(iris[,-5],cl=cl[,"2"])
# clPairs(iris[,-5],cl=cl[,"3"])
#
# par(mfrow = c(1,2))
# dimens <- c(1,2)
# coordProj(iris[,-5], dimens = dimens, classification=cl[,"2"])
# coordProj(iris[,-5], dimens = dimens, classification=cl[,"3"])
# ## End(Not run)
Run the code above in your browser using DataLab