test_that("curvesToContribs behave as expected",
{
- curvesToContribs(...)
+# curvesToContribs(...)
})
test_that("computeWerDists output correct results",
# On two identical series
serie = rnorm(212, sd=5)
synchrones = cbind(serie, serie)
- dists = computeWerDists(synchrones, nbytes,endian,verbose=TRUE,parll=FALSE)
+ dists = computeWerDists(synchrones, 4, nbytes,endian,verbose=TRUE,parll=FALSE)
expect_equal(dists, matrix(0.,nrow=2,ncol=2))
# On two constant series