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

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

;;                          :y-label ""
;;                          :series-label ""))

;; (defn add-bfast-ndvi []
;;   (c/add-lines plot-efp (range (count Yt)) Yt))

;; (defn add-bfast-slider []
;;   (let [x (range (count Yt))]
