Create knn.R