> c=read.csv("1000.csv",header = TRUE)
> newiris <-c
> newiris$Species <- NULL
> kc <- kmeans(newiris,3)
> fitted(kc)
NULL
>  table(c$Species, kc$cluster)
错误于table(c$Species, kc$cluster) : 所有参数的长度都应一致
>
求解