library("cluster")
zfaithful <- apply(faithful, 2, scale)
# euclidean distance
heatmap(as.matrix(dist(zfaithful)))
heatmap(as.matrix(daisy(zfaithful)))
# manhattan
heatmap(as.matrix(dist(zfaithful, 'manhattan')))
heatmap(as.matrix(daisy(zfaithful, 'manhattan')))
# gower
heatmap(as.matrix(daisy(zfaithful, 'gower')))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.