series <- cbind(serie, serie)
getSeries <- function(indices) as.matrix(series[,indices])
dists <- computeWerDists(1:2, getSeries, 50, 3, 4, nbytes, endian,
series <- cbind(serie, serie)
getSeries <- function(indices) as.matrix(series[,indices])
dists <- computeWerDists(1:2, getSeries, 50, 3, 4, nbytes, endian,