I have a function error "Error in knn (train = iris_train, test = iris_test, cl = iris_train_target,:
no missing values are allowed."
and I don't know how to fix it
example1 is iris in a variable a
library(GLDEX)
library(tidyverse)
library(class)
data(iris)
a <- iris
contaNa <- which.na(a$Species)
contaNa
gp <- runif(nrow(a))
gp
a <- a[order(gp),]
class(a)
str(a)
a
summary(a)
normalize <- function(x){
(x-min(x, na.rm = T))/(max(x,na.rm = T)-min(x,na.rm = T))
}
iris_n <- as.data.frame(lapply(a[,c(1,2,3,4)], normalize))
str(iris_n)
summary(iris_n)
iris_train <- iris_n[1:150,]
iris_test <- iris_n[1:150,]
iris_train_target <- a[1:150,5]
iris_test_targer <- a[1:150,5]
require(class)
ml <- knn(train = iris_train, test = iris_test, cl = iris_train_target, k = 3)
ml#