Cluster.R

clusterPlot <- function(x, dmethod = "euclidian", hmethod="complete", ...) {

 oldpar <- par(mfrow=c(2,1))  
 xDist <- dist(x, method=dmethod)
 

1. 1) Tree dendrogram

 xClust <- hclust(xDist)
 plclust(xDist)
 

1. 2) Image plot...

 par(oldpar)
 invisible()

}