R语言K-近邻算法 k-nearest neighbors algorithm

R语言KNN算法代码示例

# 数据处理
rm(list=ls())
require(kernlab)
data(spam)
data <- spam
n <- nrow(spam)
id <- sample(1:n, floor(n*0.5))
train <- data[id,]
test <- data[-id,]

require(kknn)

# 由于data中的type本身就是factor，所以后的
# 结果自动用factor显示

mdl <- kknn(type~.,train = train, test = test, k = 30)
ptest <- mdl$fitted.values

table(test$type,pred,dnn = c("Labels","prediction"))

##################################################

混淆矩阵

         prediction
Labels    nonspam spam
  nonspam    1333   74
  spam        132  762