inst/examples/R/data/cluster/distance/example_distance.R

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')))
sigbertklinke/shinyExample documentation built on May 26, 2019, 4:32 a.m.