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)
+ verbose=TRUE)
expect_equal(dists, matrix(0.,nrow=2,ncol=2))
# On two constant series