finaldata <- subset(iris, Species == "Setosa" | Species == "Versicolor")
set.seed(123)
rows <- sample(nrow(finaldata))
data <- finaldata[rows, ]
train <- rbind(data[data$Species == "Setosa", ][1:40, 1:4], data[data$Species == "Versicolor", ][1:40, 1:4])
test <- rbind(data[data$Species == "Setosa", ][41:50, 1:4], data[data$Species == "Versicolor", ][41:50, 1:4])
class <- factor(c(rep("Setosa", 40), rep("Versicolor")))
knn.res = knn(train, test, class, k = 3)
С моим текущим кодом я получаю ошибку, которая говорит, что пропущенные значения не допускаются. Есть ли способ очистить эту ошибку?