R Notebook eddy herrera daza

install.packages("rattle.data")#instalar paquete
library(rattle.data)

Cargar datos

data(wine, package="rattle.data")#cargar un dataset
 

Instalar paquete

install.packages("cluster")
library(cluster)

wine.stand <- scale(wine[-1])

k.means.fit <- kmeans(wine.stand, 3) # k = 3

clusplot(wine.stand, k.means.fit$cluster, main='2D representation of the Cluster solution',
         color=TRUE, shade=TRUE,
         labels=2, lines=0)