| 1 | context("Check that forecasters behave as expected") |
| 2 | |
| 3 | test_that("Average+Zero method behave as expected", |
| 4 | { |
| 5 | ts_data = system.file("testdata","ts",package="talweg") |
| 6 | exo_data = system.file("testdata","exo",package="talweg") |
| 7 | |
| 8 | data0 = getData(ts_data, exo_data, input_tz="GMT", date_format="%Y-%m-%d %H:%M", |
| 9 | working_tz="GMT", predict_at=0, limit=Inf) |
| 10 | #TODO: with and without shift at origin (so series values at least forst ones are required) |
| 11 | |
| 12 | indices = ... |
| 13 | pred0 = getForecast(.......) |
| 14 | |
| 15 | for (i in seq_along(indices)) |
| 16 | { |
| 17 | expect_identical(....) |
| 18 | } |
| 19 | |
| 20 | data13 = getData(ts_data, exo_data, input_tz="GMT", date_format="%Y-%m-%d %H:%M", |
| 21 | working_tz="GMT", predict_at=13, limit=Inf) |
| 22 | #Attention: jours deviennent 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 (14h-->0h puis 1h-->13h) |
| 23 | } |
| 24 | |
| 25 | test_that("Persistence+Zero method behave as expected", |
| 26 | { |
| 27 | } |
| 28 | |
| 29 | test_that("Neighbors+Zero method behave as expected", |
| 30 | { |
| 31 | } |
| 32 | |
| 33 | test_that("Neighbors+Neighbors method behave as expected", |
| 34 | { |
| 35 | } |