## Same example as in dtw
idx<-seq(0,6.28,len=100);
query<-sin(idx)+runif(100)/10;
reference<-cos(idx)
alignment<-dtw(query,reference,keep=TRUE);
# A sample of the plot styles. See individual plotting functions for details
plot(alignment, type="alignment",
main="DTW sine/cosine: simple alignment plot")
plot(alignment, type="twoway",
main="DTW sine/cosine: dtwPlotTwoWay")
plot(alignment, type="threeway",
main="DTW sine/cosine: dtwPlotThreeWay")
plot(alignment, type="density",
main="DTW sine/cosine: dtwPlotDensity")
Run the code above in your browser using DataLab