knn code snippets in r

create a knn model in r