- #TODO: mardi similaire à lundi mercredi jeudi aussi ...etc ==> "isSimilarDay()..."
- if (!same_season)
- {
- #take all similar days in recent past
- nb_days = min( (index-1) %/% 7, limit)
- return ( rep(index,nb_days) - 7*seq_len(nb_days) )
- }
-
- #Look for similar days in similar season
- nb_days = min( (index-1) %/% 7, limit)
- i = index - 7