epclust/tests/testthat/test.wavelets.R

   1 context("wavelets discrete & continuous")
   2
   3 test_that("curvesToContribs behave as expected",
   4 {
   5 #   curvesToContribs(...)
   6 })
   7
   8 test_that("computeWerDists output correct results",
   9 {
  10     nbytes = 8
  11     endian = "little"
  12
  13     # On two identical series
  14     serie = rnorm(212, sd=5)
  15     synchrones = cbind(serie, serie)
  16     dists = computeWerDists(synchrones, 4, nbytes,endian,verbose=TRUE,parll=FALSE)
  17     expect_equal(dists, matrix(0.,nrow=2,ncol=2))
  18
  19     # On two constant series
  20     # TODO:...
  21 })