# NOT RUN {
hcTree <- hcEII(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], classification=cl[,"2"], dimens=dimens)
coordProj(iris[,-5], classification=cl[,"3"], dimens=dimens)
# }
Run the code above in your browser using DataLab