Используйте KNN и перекрестную проверку для распознавания рукописных данных di git в R - PullRequest
Новая
       39

Используйте KNN и перекрестную проверку для распознавания рукописных данных di git в R

0 голосов
/ 31 января 2020

Я хочу использовать как KNN, так и 10-кратную перекрестную проверку в R для классификации рукописных данных di git в библиотеке ElemStatLearn в R. Данные могут быть установлены из https://cran.r-project.org/src/contrib/Archive/ElemStatLearn/.

Ниже приведен мой код. 

library(ElemStatLearn) #Load the data
train <- as.data.frame(zip.train) #Change the format
test <- as.data.frame(zip.test)

train[,1] <- as.factor(train[,1]) # The first column is the digit which would be the label.
test[,1] <- as.factor(test[,1])

names(train)[1] <- "Digit"
names(test)[1] <- "Digit"

elem <- rbind(train,test)

library(caret)

cv <- trainControl(method  = "cv", number  = 10)

fit <- train(elem[,2:257], elem[,1], "knn", tuneGrid = expand.grid(k=c(1,10,50)), trControl = cv)

После его запуска я не получаю никаких ошибок. Код повторяется снова и снова. Я рассмотрел некоторые другие связанные посты в этом переполнении стека, но я не могу понять, в чем проблема. Спасибо за любую помощь.

...