# NOT RUN {
Q <- cumsum(rnorm(100))
C <- Q[11:100] + rnorm(90, 0, 0.5)
tmp <- dtw(Q=Q, C=C, ws = 15, return_diffM = FALSE) # the ordinary calculation
plotQC(tmp, Q, C)
plotWarp(tmp, Q, C)
plot(tmp, Q, C, type = 'warp')
# }
Run the code above in your browser using DataLab