https://github.com/cran/dtw
Revision 935e521fa862c893e52a85dbb72c3ae53246a8e4 authored by Toni Giorgino on 15 August 2009, 00:00:00 UTC, committed by Gabor Csardi on 15 August 2009, 00:00:00 UTC
1 parent 0f86bf4
Raw File
Tip revision: 935e521fa862c893e52a85dbb72c3ae53246a8e4 authored by Toni Giorgino on 15 August 2009, 00:00:00 UTC
version 1.14-3
Tip revision: 935e521
zzz.R
###############################################################
#                                                             #
#   Author: Toni Giorgino <toni.giorgino@gmail.com>           #
#       Laboratory for Biomedical Informatics                 #
#       University of Pavia - Italy                           #
#       www.labmedinfo.org                                    #
#                                                             #
#   $Id: zzz.R 235 2009-06-30 15:13:52Z tonig $
#                                                             #
###############################################################

.onLoad <- function(lib, pkg)  {
  # library(proxy);

  cat(sprintf("Loaded dtw v%s. See ?dtw for help, citation(\"dtw\") for usage conditions.\n",
            utils::packageDescription("dtw")$Version ) );
      
  ## Register DTW as a distance function into package proxy
  pr_DB$set_entry(FUN=dtwpairdist, names="DTW", 
                  loop=TRUE, type="metric",
                  description="Dynamic Time Warping",
                  formula="minimum of sum(x[xw[i]]-y[yw[i]]) over all monotonic xw, yw");

  invisible()
}
back to top