博主代码根据机器挖掘实战编写的.那本书用的是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))