Rename Nearest Neighbor using R to kNearestNeighbor.r