[talweg.git] / pkg / tests / testthat / test-similarDays.R

context("Get similar days")

itestthat("getSimilarDaysIndices works as expected",
{
	getSimilarDaysIndices(index, data, limit, same_season, days_in=NULL)
	#...
})
{
	index = dateIndexToInteger(index, data)

testthat("getConstrainedNeighbs works as expected",
{
	.getConstrainedNeighbs(today, data, fdays, min_neighbs=10, max_neighbs=12)
	#...
})
Commit	Line	Data
3ddf1c12 BA	1	context("Get similar days")
	2
	3	itestthat("getSimilarDaysIndices works as expected",
	4	{
	5	getSimilarDaysIndices(index, data, limit, same_season, days_in=NULL)
	6	#...
	7	})
	8	{
	9	index = dateIndexToInteger(index, data)
	10
	11	testthat("getConstrainedNeighbs works as expected",
	12	{
	13	.getConstrainedNeighbs(today, data, fdays, min_neighbs=10, max_neighbs=12)
	14	#...
	15	})
	16