+++ /dev/null
-context("wavelets discrete & continuous")
-
-test_that("curvesToContribs behave as expected",
-{
-# curvesToContribs(...)
-})
-
-test_that("computeWerDists output correct results",
-{
- nbytes = 8
- endian = "little"
-
- # On two identical series
- serie = rnorm(212, sd=5)
- synchrones = cbind(serie, serie)
- dists = computeWerDists(synchrones, 4, nbytes,endian,verbose=TRUE,parll=FALSE)
- expect_equal(dists, matrix(0.,nrow=2,ncol=2))
-
- # On two constant series
- # TODO:...
-})