weighted euclidean distance code snippets in r

split a time series data to windows of length 10. then for each window, find the closest 5 preceding neighbors using weighted euclidean distance in r