  [2 50] (roughly 48. 0.00000001))
 
 (tabular
+ "check min-short-trend"
  (fact
    (min-short-trend ?long ?short ?ts) => ?expected)
  ?long ?short ?ts ?expected

  (idx [1 2 3]) => [1 2 3])

(fact
  (windowed-map ols-trend 2 [1 2 50]) => (apply roughly [1. 48.]))

(fact
  (transpose [[1 2 3] [4 5 6]] ) => [[1 4] [2 5] [3 6]])

(ns forma.trends.analysis-test
  (:use [forma.trends.analysis] :reload
        [clojure.math.numeric-tower :only (sqrt floor abs expt)])
  (:use midje.sweet
        [forma.presentation.ndvi-filter :only (ndvi reli rain Yt)])
  (:require [incanter.core :as i]
