    :t-stat      "t-statistic for the relevant month."})
 
 (defrecord FormaValue
-    [fire-value short-drop param-break long-drop t-stat]
-  Comparable
-  (compareTo [m1 m2]
-    (forma.kryo.RecordComparator/recordCompare
-     m1 m2 [:t-stat :fire :short :param-break :long])))
+    [fire-value short-drop param-break long-drop t-stat])
 
 (defn forma-value
   "Returns a vector containing a FireValue, short-term drop,

(defrecord NeighborValue
    [fire-value neighbor-count avg-short-drop min-short-drop
     avg-param-break min-param-break avg-long-drop min-long-drop
     avg-t-stat min-t-stat]
  Comparable
  (compareTo [m1 m2]
    (forma.kryo.RecordComparator/recordCompare
     m1 m2 [:neighbor-count :fire-value :avg-short-drop :min-short-drop
            :avg-param-break :min-param-break :avg-long-drop :min-long-drop
            :avg-t-stat :min-t-stat])))

(defn neighbor-value
  "Accepts either a forma value or a sequence of sub-values."

        :end-idx   end-idx
        :series    (vec series)})))

(defrecord TimeSeriesValue [start-idx end-idx series])

(defn ts-record
  ([start-idx series]
