kmeans中的错误（ul，centers = i）：比不同的数据点更多的聚类中心

Question

我正在尝试确定kmeans的最佳簇数，但是我收到了一个错误。

这就是我所拥有的：

ul <- lab
ul <- na.omit(ul)
ul <- scale(ul)

ul[which(!is.na(ul))] <- 0
ul[which(!is.finite(ul))] <- 0
wss <- (nrow(ul)-1)*sum(apply(ul,2,var))
for (i in 1:15) wss[i] <- sum(kmeans(ul, centers=i)$withinss)