R/dtw_wrapper.R

In TSdist: Distance Measures for Time Series Data

Defines functions DTWDistance

Documented in DTWDistance

# Dynamic time warping distance is calculated by using dtw package

DTWDistance <- function(x, y, ...){
  tryCatch({
  dtw(x, y, ...)$distance}, 
  error=function(e){print(e); NA})   
}

Try the TSdist package in your browser