Add report generator + first draft of report.gj

[talweg.git] / pkg / tests / testthat / test.dateIndexToInteger.R

diff --git a/pkg/tests/testthat/test.dateIndexToInteger.R b/pkg/tests/testthat/test.dateIndexToInteger.R
deleted file mode 100644 (file)
index b2316dd..0000000
--- a/pkg/tests/testthat/test.dateIndexToInteger.R
+++ /dev/null
@@ -1,25 +0,0 @@
-context("Check that dateIndexToInteger behaves as expected")
-
-test_that("computed integer index is correct; predict_at == 0",
-{
-       data0 = getData(ts_data="pm10_mesures_H_loc.csv", exo_data="meteo_extra_noNAs.csv",
-               input_tz="Europe/Paris",working_tz="Europe/Paris", predict_at=0, limit=200)
-       expect_identical( dateIndexToInteger("2008-12-10",data), 1 )
-       expect_identical( dateIndexToInteger("2008-12-11",data), 2 )
-       expect_identical( dateIndexToInteger("2008-12-20",data), 11 )
-       expect_identical( dateIndexToInteger("2009-02-01",data), 53 )
-       expect_identical( dateIndexToInteger("2009-03-01",data), 81 )
-       expect_identical( dateIndexToInteger("2009-05-31",data), 172 )
-})
-
-test_that("computed integer index is correct; predict_at > 0",
-{
-       data7 = getData(ts_data="pm10_mesures_H_loc.csv", exo_data="meteo_extra_noNAs.csv",
-               input_tz="Europe/Paris",working_tz="Europe/Paris", predict_at=7, limit=200)
-       expect_identical( dateIndexToInteger("2008-12-10",data), 2 )
-       expect_identical( dateIndexToInteger("2008-12-11",data), 3 )
-       expect_identical( dateIndexToInteger("2008-12-20",data), 12 )
-       expect_identical( dateIndexToInteger("2009-02-01",data), 54 )
-       expect_identical( dateIndexToInteger("2009-03-01",data), 82 )
-       expect_identical( dateIndexToInteger("2009-05-31",data), 173 )
-}