kNN in R using UCI dataset