Блог

Я новичок в R и временных рядах. Допустим, у меня есть 5 векторов временных рядов (разной длины), которые я хочу найти сходство между ними, используя динамическое искажение времени. Как вы знаете, DTW сравнивает только 2 временных ряда. Мне нужно просмотреть каждую пару из 5 посещений (10 пар), чтобы вычислить расстояния, а затем сравнить их.

Используя пакет DTW, этот код работает только для двух временных рядов.

 v1<-c(358.214, 359.240, 360.039, 361.163, 361.164, 362.113, 362.114)
v2<-c(392.664, 414.588, 414.589, 421.463, 421.464, 427.863)
v3<-c(470.776, 470.777, 471.951, 471.952, 477.651, 477.652, 479.601, 479.602, 480.426, 480.427)
v4<-c(639.000, 650.574, 650.575, 658.199, 658.200, 658.696)
v5<-c(678.846, 678.847, 688.121, 688.122, 690.371, 690.372, 701.946, 701.947, 704.921)

dtw1 <-dtw(v1, v2, dist.method="Euclidean", keep.internals = T, step.pattern= asymmetric)
plot(dtw1)
 

Я не знаю, как пройти через каждую пару. Я не думаю, что цикл for здесь является лучшим вариантом. После вычисления расстояний я должен сохранить их в матрице, чтобы сравнить их?
Каков наилучший способ вычисления всех возможных пар для этих векторов?

Поместите все векторы в список и используйте combn для создания всех возможных их комбинаций и сохранения результата в списке.

 library(dtw)

list_vec <- list(v1, v2, v3, v4, v5)

result <- combn(list_vec, 2, function(x) {
   dtw(x[[1]], x[[2]], dist.method="Euclidean", 
       keep.internals = TRUE, step.pattern= asymmetric)
}, simplify = FALSE)