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