R语言的实现？

是的其中一个例子：#Kmean
iris2<-iris
iris2$Species<-NULL

tot.wssplot <- function(data, nc, seed=1234){
  #假设分为一组时的总的离差平方和              
  tot.wss <- (nrow(data)-1)*sum(apply(data,2,var))
  for (i in 2:nc){
    #必须指定