- # Determine indices of no-NAs days followed by no-NAs tomorrows
- first_day = max(today - memory, 1)
- fdays = (first_day:(today-1))[ sapply(first_day:(today-1), function(i) {
- !any(is.na(data$getSerie(i)) | is.na(data$getSerie(i+1)))
- }) ]
-
- # Indices of similar days for cross-validation; TODO: 45 = magic number
- sdays = getSimilarDaysIndices(today, limit=45, same_season=FALSE)
+ # Indices of similar days for cross-validation; TODO: 20 = magic number
+ cv_days = getSimilarDaysIndices(today, data, limit=20, same_season=FALSE, days_in=fdays)