Update Nearest Neighbor using R