'update'
[epclust.git] / epclust / tests / testthat / test-computeWerDists.R
... / ...
CommitLineData
1context("computeWerDists")
2
3test_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 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)
14 expect_equal(dists, matrix(0.,nrow=2,ncol=2))
15
16 # On two constant series
17 # TODO: ref results. Ask Jairo to check function.
18})