Update KNN.R