data(iris)
irisMatrix <- as.matrix(iris[,1:4])
hcTree <- hcEII(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"])
par(mfrow = c(1,2))
dimens <- c(1,2)
coordProj(irisMatrix, classification=cl[,"2"], dimens=dimens)
coordProj(irisMatrix, classification=cl[,"3"], dimens=dimens)
Run the code above in your browser using DataLab