k-nearest neighbors code snippets in r

find the closest 10 neighbors of a time series in r