| 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 | 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) |
| 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 | }) |