drop enercast submodule; drop Rcpp requirement; fix doc, complete code, fix fix fix

[epclust.git] / epclust / tests / testthat / test-computeWerDists.R

diff --git a/epclust/tests/testthat/test-computeWerDists.R b/epclust/tests/testthat/test-computeWerDists.R
index d83c590..0e02413 100644 (file)
--- a/epclust/tests/testthat/test-computeWerDists.R
+++ b/epclust/tests/testthat/test-computeWerDists.R
@@ -2,16 +2,17 @@ context("computeWerDists")
 
 test_that("computeWerDists output correct results",
 {
-       nbytes = 8
-       endian = "little"
+       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)
+       serie <- rnorm(212, sd=5)
+       series <- cbind(serie, serie)
+       getSeries <- function(indices) as.matrix(series[,indices])
+       dists <- computeWerDists(1:2, getSeries, 50, 3, 4, nbytes, endian,
+               verbose=TRUE, parll=FALSE)
        expect_equal(dists, matrix(0.,nrow=2,ncol=2))
 
        # On two constant series
-       # TODO:...
+       # TODO: ref results. Ask Jairo to check function.
 })
-