         end 136
         [ndvi-ts reli-ts rain-ts] ((juxt :ndvi :reli :rain) m)]
     (vec (map
-          (partial schema/timeseries-value start end)
+          (partial timeseries-value start end)
           (transpose
            (telescoping-long-trend 23 start end ndvi-ts reli-ts rain-ts))))))
 

(ns forma.trends.analysis-test
  (:use [forma.trends.analysis] :reload)
  (:use [midje.sweet]
        [forma.matrix.utils]
        [forma.trends.stretch]
        [forma.trends.data]
        [forma.utils]
        [cascalog.api]
        [midje.cascalog]
        [clojure.math.numeric-tower :only (sqrt floor abs expt)]
        [clojure.test :only (deftest)])
  (:require [incanter.core :as i]
            [incanter.stats :as s]
            [forma.schema :as schema]))

(defn num-equals [expected]
  (fn [actual] (== expected actual)))

  (let [start 135
        end 136
        [ndvi-ts reli-ts] ((juxt :ndvi :reli) m)]
    (timeseries-value start end
     (telescoping-short-trend 30 10 23 start end ndvi-ts reli-ts))))

(deftest long-trends-test
