Difference between revisions of "Cluster.R"
From Organic Design wiki
m |
(bugs) |
||
| Line 4: | Line 4: | ||
# 1) Tree dendrogram | # 1) Tree dendrogram | ||
| − | xClust <- hclust(xDist) | + | xClust <- hclust(xDist, method=hmethod) |
| − | plclust( | + | plclust(xClust) |
# 2) Image plot... | # 2) Image plot... | ||
Revision as of 20:51, 11 November 2006
clusterPlot <- function(x, dmethod = "euclidian", hmethod="complete", ...) {
oldpar <- par(mfrow=c(2,1)) xDist <- dist(x, method=dmethod)
- 1) Tree dendrogram
xClust <- hclust(xDist, method=hmethod) plclust(xClust)
- 2) Image plot...
image(x = 1:nrow(x), y = 1:ncol(x), z = x[xClust$order, ]) par(oldpar) invisible()
}
- Test
x <- matrix(rnorm(40), nc=4) clusterPlot(x)
