Nothing
## Simple demo showing how to make `idendro' visualize long dimnames
## and case names in the heat map.
##
library(idendr0) # idendro
# generate data in feature space
n <- 10
x <- data.frame(very.long.dim.name1 = c(rnorm(n, -1), rnorm(n, 1)),
long.dim.name2 = c(rnorm(n, -1), rnorm(n, 1)))
rownames(x) <- paste('my brand new observation', 1:(2*n))
# compute pairwise distances
dx <- dist(x)
# perform hierarchical clustering
hx <- hclust(dx)
# visualize clusters
# setting margins large enough to hold the long dimnames
idendro(hx, x, mai = par('mai') * c(1, 1, 1.7, 4))
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.