Cluster.R

From Organic Design wiki
Revision as of 03:25, 16 November 2006 by Sven (talk | contribs) (Adding missing arg)

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, method=hmethod)
 plclust(xClust, sub="")
  1. 2) Image plot...
 image(x = 1:nrow(x), y = 1:ncol(x), z = x[xClust$order, ], col=heat.colors(nrow(x)), ...)
 par(oldpar)
 invisible()

}

  1. Test

x <- matrix(rnorm(40), nc=4) colnames(x) <- LETTERS[1:4] rownames(x) <- letters[1:10] clusterPlot(x)

Retrieved from "https://organicdesign.nz/wiki/index.php?title=Cluster.R&oldid=42860"