Проблемы с ккнн

Question

У меня есть некоторые проблемы с запуском kknn, модель продолжает возвращаться с ошибкой: «Ошибка в near_neighbour (X): объект« o »не найден» Ниже приведен код, который я пытаюсь запустить, может кто-нибудь помочь, что может быть проблема?

#Calculate accuracy of the model with k=X
nearest_neighbour = function(X){
  prediction <- rep(o,(nrow(credit_card_data.headers)))
  #loop for each row 
  for(i in 1:nrow(credit_card_data.headers)){
    #use [-1] to avoid ith row 
    model <- kknn(as.factor(R1)~.,credit_card_data.headers[-i,],
                  credit_card_data.headers[i,],k=X,scale=TRUE)
    model$fitted.values
    prediction[i]<-as.integer(model$fitted.values)-1

  }
  acc = sum(prediction == credit_card_data.headers[,11]) / 
    nrow(credit_card_data.headers)
  return(acc)

}

accurracy=rep(0.60)
for(X in 1:60) {
  accurracy[x]=nearest_neighbour(X)
}