- serie = rnorm(212, sd=5)
- synchrones = cbind(serie, serie)
- dists = computeWerDists(synchrones, 4, nbytes,endian,verbose=TRUE,parll=FALSE)
+ serie <- rnorm(212, sd=5)
+ series <- cbind(serie, serie)
+ getSeries <- function(indices) as.matrix(series[,indices])
+ dists <- computeWerDists(1:2, getSeries, 50, 3, 4, nbytes, endian,
+ verbose=TRUE, parll=FALSE)