Revision 9fbfbef539cfc60884f6828c62f0aa328335a0b1 authored by Toni Giorgino on 08 January 2008, 00:00:00 UTC, committed by Gabor Csardi on 08 January 2008, 00:00:00 UTC
1 parent da02fed
dtwDist.R
###############################################################
# #
# (c) Toni Giorgino <toni.giorgino@gmail.com> #
# Laboratory for Biomedical Informatics #
# University of Pavia - Italy #
# www.labmedinfo.org #
# #
# $Id: distance.R 51 2007-12-11 10:59:08Z tonig $
# #
###############################################################
## Compute a dissimilarity matrix, akin to "dist", analogue/distance,
## vegan/vegdist, etc. , based on the dtw "distance" measure.
## Apply FUN to all row pairs
dtwDist <- function(m,...) {
mye<-function(y,x,FUN,...) {
apply(x,1,FUN,y,...);
}
apply(m,1,mye,m,dtwpairdist,...);
}
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...