1 context("computeWerDists")
3 test_that("computeWerDists output correct results",
8 # On two identical series
9 serie = rnorm(212, sd=5)
10 synchrones = cbind(serie, serie)
11 dists = computeWerDists(synchrones, 4, nbytes,endian,verbose=TRUE,parll=FALSE)
12 expect_equal(dists, matrix(0.,nrow=2,ncol=2))
14 # On two constant series