1 context("Check that integerIndexToDate behaves as expected")
3 test_that("date matches index in data",
5 #TODO: with and without shift at origin (so series values at least forst ones are required)
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 !!!
19 data = new("Data", data=series)
21 integerIndexToDate = function(index, data)