+++ /dev/null
-context("Check that dateIndexToInteger behaves as expected")
-
-test_that("integer index matches date in data",
-{
-
-
-
-#TODO: with and without shift at origin (so series values at least forst ones are required)
-
-
- n = 1500
- series = list()
- for (i in seq_len(n))
- {
- index = (i%%3) + 1
- level = mean(s[[index]])
- serie = s[[index]] - level + rnorm(L,sd=0.05)
- # 10 series with NAs for index 2
- if (index == 2 && i >= 60 && i<= 90)
- serie[sample(seq_len(L),1)] = NA
- series[[i]] = list("level"=level,"serie"=serie) #no need for more :: si : time !!!
- }
- data = new("Data", data=series)
-
- dateIndexToInteger = function(index, data)
-})