inert <- rep(0, times=10)
for (k in 2:10) {
  classe=kmeans(test_des1,k)
  inert[k] <- classe$betweenss/classe$totss

}
plot(1:10,inert, type="b", xlab="nombre de groupe", ylab="% inertie expliquée")