drop enercast submodule; drop Rcpp requirement; fix doc, complete code, fix fix fix
[epclust.git] / epclust / tests / testthat / test-computeWerDists.R
CommitLineData
40f12a2f 1context("computeWerDists")
d9bb53c5
BA
2
3test_that("computeWerDists output correct results",
4{
282342ba
BA
5 nbytes <- 8
6 endian <- "little"
d9bb53c5
BA
7
8 # On two identical series
282342ba
BA
9 serie <- rnorm(212, sd=5)
10 series <- cbind(serie, serie)
11 getSeries <- function(indices) as.matrix(series[,indices])
12 dists <- computeWerDists(1:2, getSeries, 50, 3, 4, nbytes, endian,
13 verbose=TRUE, parll=FALSE)
d9bb53c5
BA
14 expect_equal(dists, matrix(0.,nrow=2,ncol=2))
15
16 # On two constant series
282342ba 17 # TODO: ref results. Ask Jairo to check function.
d9bb53c5 18})