# NOT RUN {
Q <- cos(1:100)
C <- cumsum(rnorm(80))
# the ordinary calculation
result_base <- dtw(Q=Q, C=C, return_diffM = FALSE)
# the ordinary calculation without the last 4 observations
result_decr <- dtw(Q=Q, C=C[1:(length(C) - 4)], return_diffM = FALSE)
# the decremental step: reduce C for 4 observation
result_decr2 <- dec_dm(result_base$dm, Ndec = 4)
# compare ii, jj and wp of result_decr and those of
result_decr$ii
result_decr2$ii
identical(result_decr$ii, result_decr2$ii)
result_decr$jj
result_decr2$jj
identical(result_decr$jj, result_decr2$jj)
result_decr$wp
result_decr2$wp
identical(result_decr$wp, result_decr2$wp)
# }
Run the code above in your browser using DataLab