Полезные наблюдения за реальностью

Вот такое заклинание в R
heatmap(as.matrix(X), scale='none')

нарисует то же самое, что и

Row.dendro <- reorder(as.dendrogram(hclust(dist(X))),rowMeans(X))
Col.dendro <- reorder(as.dendrogram(hclust(dist(t(X)))),colMeans(X))

heatmap(as.matrix(X), scale='none', Rowv=Row.dendro, Colv=Col.dendro)