epclust/tests/testthat/test-computeWerDists.R

   1 context("computeWerDists")
   2
   3 test_that("computeWerDists output correct results",
   4 {
   5     nbytes = 8
   6     endian = "little"
   7
   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))
  13
  14     # On two constant series
  15     # TODO:...
  16 })
  17