R语言KNN聚类

R语言KNN聚类

---

训练集

library(class)
sam<-sample(c(1:150),100)
iris[6]<-c(rep(0,50),rep(1,50),rep(2,50))
iris.sam<-iris[sam,]
iris.test<-iris[-sam,]
plot(iris.sam[1:2],col=iris.sam$Species)
knn.cv(iris.sam[,1:2],cl=iris.sam[,6],k=10)
kn<-knn.cv(iris.sam[,1:2],cl=iris.sam[,6],k=10)
table(iris.sam$Species,kn)
plot(iris.sam[1:2],col=kn)

也可以通过输出kn来查看分类结果

测试集

knn<-knn.cv(iris.test[,1:2],cl=iris.test[,6],k=10)
table(iris.test$Species,knn)
plot(iris.test[1:2],col=knn)