使用DTW作為R編程語言中的距離度量來實現Knn

Question

我正在嘗試使用dtw作為R中的距離度量來實現Knn。以下是我正在嘗試實現的代碼

## 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”