context("Check that dateIndexToInteger behaves as expected")
-test_that("integer index matches date in data",
+getDataTest = function(n, shift)
{
-
-
-
-#TODO: with and without shift at origin (so series values at least forst ones are required)
-
-
n = 1500
series = list()
+ s = rep(0, 24)
+
for (i in seq_len(n))
{
- index = (i%%3) + 1
- level = mean(s[[index]])
- serie = s[[index]] - level + rnorm(L,sd=0.05)
+ level = i %% 3mean(s[[index]])
+ serie = s
# 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 !!!
+ series[[i]] = list("level"=i%%3, "serie"=s, "time"=)
}
data = new("Data", data=series)
+}
+test_that("integer index matches date in data, predict_at == 0",
+{
+ data = getData(
dateIndexToInteger = function(index, data)
})
+
+test_that("integer index matches date in data, predict_at > 0",
+{
+
+
+
+
+ ####TODO: CSV as raw data in inst/extdata http://r-pkgs.had.co.nz/data.html