   to do."
   [y long-block short-block & x]
   (let [characteristics (create-struct :short :long :long-tstat :break)
-        deseas (harmonic-seasonal-decomposition 23 3 y)
-        [long-val long-tstat] (apply long-stats deseas x)]
+        [long-val long-tstat] (apply long-stats y x)]
     (struct characteristics
-            (min-short-trend long-block short-block deseas)
+            (min-short-trend long-block short-block y)
             long-val
             long-tstat
-            (apply hansen-stat deseas x))))
+            (apply hansen-stat y x))))
 
 (defn scaled-vector
   [scalar coll]

(ns forma.trends.analysis
  (:use [forma.matrix.utils :only (variance-matrix coll-avg)]
        [clojure.math.numeric-tower :only (sqrt floor abs expt)]
        [forma.trends.filter :only (deseasonalize make-reliable hp-filter)])
  (:require [forma.utils :as utils]
            [incanter.core :as i]
            [incanter.stats :as s]))

;;           (windowed-apply coll-avg window)
;;           (make-monotonic min))))

;; (defn collect-short-trend
;;   "preps the short-term drop for the merge into the other data by separating
;;   out the reference period and the rest of the observations for estimation,
;;   that is, `for-est`!"
;;   ([start-pd end-pd long-block window ts]
;;      (collect-short-trend start-pd end-pd long-block window ts []))
;;   ([start-pd end-pd long-block window ts reli-ts]
;;      (let [offset (+ long-block window)
;;            [y z] (map #(-> % (- offset) (+ 2)) [start-pd end-pd])
;;            full-ts (short-trend long-block window ts reli-ts)]
;;        (subvec full-ts (dec y) z))))

;; WHIZBANG :: Collect the long-term drop of a time-series

