R语言实现K-Means算法数据集iris

博主代码根据机器挖掘实战编写的.那本书用的是Python.Step By Step. R语言有函数包实现
也可以调用，里面的四个algorithm我怎么看着都差不多，所以我决定写一下，明天仔细看一下
kmeans(x, centers, iter.max = 10, nstart = 1,
algorithm = c(“Hartigan-Wong”, “Lloyd”, “Forgy”,
“MacQueen”))

代码
#加载iris函数
loadData <- function(){
   
  data(iris)
  #要把Species列去掉
  dataSet =  iris[,-ncol(iris)]
  return (dataSet)
  }
 #计算欧几里得距离
 distEnclud <- function(vecA,vecB){
   
   distEnclud = sqrt(apply((vecA-vecB)^2,1,sum))