> library(fpc)
> WSS<-sapply(ks,FUN=function(k) {
+ kmeans(shapes,centers=k,nstart=10)$tot.winthinss
+ })
> plot(ks,WSS,type="1")
错误于xy.coords(x, y, xlabel, ylabel, log) :
  (串列)对象不能强制改变成'double'种类