Как исправить ошибку kmeans в r: «больше центров кластеров, чем отдельных точек данных»?

Question

Когда я запускаю алгоритм kmeans, я получаю эту ошибку

Error in kmeans(dat[, -1], k) : 
more cluster centers than distinct data points.

Как эту ошибку можно исправить? Я на 99% уверен, что мои данные отличаются. Вот мой код

withinVar <- c() 
for (k in 2:30) { 
  km <- kmeans(dat[, -1], k) 
  withinVar <- c(withinVar, km$tot.withinss) 
}