context("Get similar days")
-itestthat("getSimilarDaysIndices works as expected",
+test_that("getSimilarDaysIndices works as expected",
{
- getSimilarDaysIndices(index, data, limit, same_season, days_in=NULL)
- #...
+ data = getDataTest(150)
+
+ # Index 142 is a tuesday (142 = 2 mod 7)
+ N142_1 = getSimilarDaysIndices(142, data, limit=7, same_season=FALSE, days_in=NULL)
+ expect_equal(N142_1, c(141,137,136,135,134,130,129))
+ # Index 139 = saturday
+ N139_1 = getSimilarDaysIndices(139, data, limit=7, same_season=FALSE, days_in=NULL)
+ expect_equal(N139_1, c(132,125,118,111,104,97,90))
+
+ # With 'days_in' constraint
+ N142_2 = getSimilarDaysIndices(142, data, limit=7, same_season=FALSE, days_in=2*(1:75))
+ expect_equal(N142_2, c(136,134,130,128,122,120,116))
+ N139_2 = getSimilarDaysIndices(139, data, limit=7, same_season=FALSE, days_in=2*(1:75))
+ expect_equal(N139_2, c(132,118,104,90,76,62,48))
})
-{
- index = dateIndexToInteger(index, data)
-testthat("getConstrainedNeighbs works as expected",
+test_that("getConstrainedNeighbs works as expected",
{
- .getConstrainedNeighbs(today, data, fdays, min_neighbs=10, max_neighbs=12)
- #...
+# data = getDataTest(150)
+# N142_1 = .getConstrainedNeighbs(142, data, fdays, min_neighbs=7, max_neighbs=7)
+# #...maybe we need an easier test data
})