https://github.com/cran/dtw
Tip revision: 5f6fe253ca22e98effc9eda4c1cec74ff97e5e31 authored by Toni Giorgino on 11 December 2013, 00:00:00 UTC
version 1.17-1
version 1.17-1
Tip revision: 5f6fe25
mvm.R
###############################################################
# #
# Author: Toni Giorgino <toni.giorgino,gmail.com> #
# Istituto di Ingegneria Biomedica (ISIB-CNR) #
# Consiglio Nazionale delle Ricerche #
# www.isib.cnr.it #
# #
# $Id: mvm.R 311 2013-06-03 17:23:17Z tonig $
# #
###############################################################
#############################
## Step pattern for MVM (minimum variance matching)
##
mvmStepPattern <- function(elasticity=20) {
size <- elasticity;
pn <- rep(1:size,each=2); # 112233...
dx <- rep(c(1,0),size); # 101010
dy <- dx * ( (1:(2*size)) +1)/2; # 102030
w <- rep(c(-1,1),size);
tmp <- cbind(pn,dx,dy,w);
# tmp <- as.vector(t(tmp));
sp <- stepPattern(tmp);
attr(sp,"norm") <- "N";
attr(sp,"call") <- match.call();
return(sp);
}