Added straight down line.

antononcube · Nov 8, 2017 · 0a83b3f · 0a83b3f
1 parent 81fc41f
commit 0a83b3f
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/TimeSeriesRecommender.R b/R/TimeSeriesRecommender.R
@@ -230,6 +230,10 @@ MakeTimeSeriesSearchVectors <- function( tsMat ) {
   searchVector <- ( 1:ncol(tsMat) ) / ncol(tsMat)
   tsSearchVectors <- c( tsSearchVectors, list(StraightUp = searchVector) )
 
+  ## Straight descending line
+  searchVector <- seq( ncol(tsMat), 1, -1 ) / ncol(tsMat)
+  tsSearchVectors <- c( tsSearchVectors, list(StraightDown = searchVector) )
+
   ## Increasing in the last half
   searchVector <- ( 1:ncol(tsMat) ) - ( ncol(tsMat) / 2 ); searchVector[ searchVector < 0 ] <- 0
   searchVector <- searchVector / ncol(tsMat)