pkg/tests/testthat/test.integerIndexToDate.R

   1 context("Check that integerIndexToDate behaves as expected")
   2
   3 test_that("date matches index in data",
   4 {
   5     #TODO: with and without shift at origin (so series values at least forst ones are required)
   6
   7     n = 1500
   8     series = list()
   9     for (i in seq_len(n))
  10     {
  11         index = (i%%3) + 1
  12         level = mean(s[[index]])
  13         serie = s[[index]] - level + rnorm(L,sd=0.05)
  14         # 10 series with NAs for index 2
  15         if (index == 2 && i >= 60 && i<= 90)
  16             serie[sample(seq_len(L),1)] = NA
  17         series[[i]] = list("level"=level,"serie"=serie) #no need for more :: si : time !!!
  18     }
  19     data = new("Data", data=series)
  20
  21     integerIndexToDate = function(index, data)
  22 })