inst/examples/R/data/cluster/k_means/example_kmeans1.R

In sigbertklinke/shinyExample: Create and run simple (interactive) programs as Shiny apps

library("mclust") # for Swiss banknote data
data(banknote)
x <-banknote[,2:7]
z <-scale(x)
# 
kx <- kmeans(x, c=2)
plot(x$Bottom, x$Diagonal, col=kx$cluster, 
     main="Unstandardized", pch=19)
kx$centers
scale(kx$centers, center=colMeans(x), scale=apply(x, 2, sd))
#
kz <- kmeans(z, c=2)
plot(x$Bottom, x$Diagonal, 
     col=kz$cluster, main="Standardized", pch=19)