===== DSSP 14 dimension reduction and clustering =====

{{:members:aguilloux:enseignements:dr_unsupervised.zip| Documents}}



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))