projects
/
talweg.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
advance on tests
[talweg.git]
/
pkg
/
tests
/
testthat
/
test.dateIndexToInteger.R
diff --git
a/pkg/tests/testthat/test.dateIndexToInteger.R
b/pkg/tests/testthat/test.dateIndexToInteger.R
index
9786097
..
7f09847
100644
(file)
--- a/
pkg/tests/testthat/test.dateIndexToInteger.R
+++ b/
pkg/tests/testthat/test.dateIndexToInteger.R
@@
-1,26
+1,33
@@
context("Check that dateIndexToInteger behaves as expected")
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()
n = 1500
series = list()
+ s = rep(0, 24)
+
for (i in seq_len(n))
{
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
# 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)
}
data = new("Data", data=series)
+}
+test_that("integer index matches date in data, predict_at == 0",
+{
+ data = getData(
dateIndexToInteger = function(index, data)
})
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