Реализация Knn с использованием DTW в качестве меры расстояния в языке программирования R - PullRequest
Новая
       14

Реализация Knn с использованием DTW в качестве меры расстояния в языке программирования R

0 голосов
/ 12 октября 2018

Я пытаюсь реализовать Knn, используя dtw в качестве меры расстояния в R. Ниже приведен код, который пытаюсь реализовать 

## KNN + DTW
knn <- function(inputData, k){
   n <- nrow(inputData)
   if (n <= k) stop("Value of k should be <= k-1")
   neigh <- matrix(0, nrow = n, ncol = k)
   library(dtw)
   dist2.inputData <- dtw(inputData, inputData)
  for(i in 1:n) {
      dtw.dist <- dist2.inputData[i,]
      neigh[i, ] <- order(dtw.dist)[2:(k + 1)]
 }
   return(neigh)
}

Но когда я запускаю это с использованием набора данных из UCR, я получаю сообщение об ошибке ниже;

 predKit <- knn(inputData = TRAIN, k =3)

Ошибка в cpp_cm (Q, C, dist_method = dist_method, ws = ws_cpp, nPrevObs = 0): не удалось найти функцию "cpp_cm"

...