Nothing
## Demo showing how `DendSer::dser' can be used to optimize dendrogram
## ordering in `idendro'.
## (This demo is based on the example provided for `dser'.)
##
library(DendSer) # dser
library(idendr0) # idendro
# hierarchical cluster analysis over iris data
d <- dist(scale(iris[, -5]))
h <- hclust(d)
# compute the first principal component (PC1) of iris data
PC1 <- prcomp(iris[,-5], scale = TRUE)$x[, 1]
# for visualization purposes, and PC1 to the data
iris.with.pc1 <- cbind(iris, PC1)
# draw dendrogram with heat map
cat('original dendrogram\n')
idendro(h, iris.with.pc1)
# note the order of the observations (rows in heat map) does not
# reflect the Species well (and PC1 either)
# Let's reorder the observations by the PC1 using 'DendSer::dser'
h$order <- dser(h, PC1, cost = costLS)
cat('reordered dendrogram\n')
idendro(h, iris.with.pc1)
# note the order of observations is much more natural when sorted
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.