 (defn add-ndvi-slider []
   (let [x forma-range]
     (c/slider #(i/set-data plot2
-                           [x (hp-filter (make-reliable #{2} #{1} reli ndvi) %)])
+                           [x (hp-filter % (make-reliable #{2} #{1} reli ndvi))])
               (map (partial round-places 2)
                    (range 0 1000 1))
               "lambda")))

;; based on the interpolated NDVI values.

(def plot2 (c/time-series-plot forma-range
                               (hp-filter (make-reliable #{2} #{1} reli ndvi) 2)
                               :title ""
                               :x-label ""
                               :y-label ""

(defn add-filter []
  (doto (c/add-lines plot3
                     forma-range
                     (hp-filter 2 (make-reliable #{2} #{1} reli ndvi))
                     :series-label "FILTER")))


