Create knn.r