Модель KNN получает 100% точность. Стоит ли доверять результатам? - PullRequest
0 голосов
/ 11 сентября 2018

Итак, я играю с набором данных радужной оболочки, и независимо от того, какое у меня значение k в алгоритме knn, я получаю 100% точность. Я где-то ошибся? Вот мой код с использованием встроенного фрейма данных радужной оболочки.

library(caret)
set.seed(52)
irissplit <- createDataPartition(iris$Species, p=.8, list=FALSE, times=1)
train <- iris[irissplit, ]
test <- iris[-irissplit, ]

library(class)
model_knn <- list()
accuracy_knn <- numeric()
for (i in 1:10) {
 model_knn[[i]] <- knn(train[,-5], test[,-5], train$Species, k=i, prob=TRUE) 
 accuracy_knn[i] <- sum(model_knn[[i]]==test$Species)/length(test$Species)*100
}
accuracy_knn
...