为什么在knn之后​​显示“不允许缺少任何值”

Question

for(i in 1:30){
  KnnFit <- knn(train = DataTrain[,4:8],test = DataTest[,4:8],cl = DataTrain[,9],k=i)
  CT <- table(DataTest[,9],KnnFit)
  ErrRatio <- c(ErrRatio,(1-sum(diag(CT))/sum(CT))*100)
}

在执行此操作时，结果将显示

  

knn中的错误（train = DataTrain [，4：8]，test = DataTest [，4：8]，cl =   DataTrain [，：不允许缺少任何值

我使用

Data <- Data[complete.cases(Data),]

避免错误 但是，它仍然在那里！

我该怎么解决

my data example