library(cluster)
distances = dist(decathlonR[1:10])
K=15
DecathlonRKmeans ← kmeans(decathlonR[1:10], K)
DecathlonTSNEKmeans ← kmeans(DecathlonTSNE$Y, K)
PlotDecathlon(DecathlonTSNE$Y, Col = factor(DecathlonRKmeans$cluster))
PlotDecathlon(DecathlonTSNE$Y, Col = factor(DecathlonTSNEKmeans$cluster))
plot(silhouette(DecathlonRKmeans$cluster,distances))
plot(silhouette(DecathlonTSNEKmeans$cluster,distances))