          long-mean long-min t-mean t-min] (unpack-neighbor-val neighbor-val)
         [k330 c50 ck fire] (extract-fields fire-val)
         [k330-n c50-n ck-n fire-n] (extract-fields fire-sum)]
-    (join \tab
-          [k330 c50 ck fire s-drop l-drop t-drop
-           k330-n c50-n ck-n fire-n
-           ct short-mean short-min long-mean long-min t-mean t-min])))
+    (s/join \tab
+            [k330 c50 ck fire s-drop l-drop t-drop
+             k330-n c50-n ck-n fire-n
+             ct short-mean short-min long-mean long-min t-mean t-min])))
 
 ;; ## Location
 

        (update-in [:avg-t-stat]     u/weighted-mean t-stat 1)
        (update-in [:min-short-drop] min short)
        (update-in [:min-long-drop]  min long)
        (update-in [:min-t-stat]     min t))))

(defn combine-neighbors
  "Returns a new forma neighbor value generated by merging together

  ([start-idx series]
     (let [elems (count series)]
       (timeseries-value start-idx
                         (dec (+ start-idx elems))
                         series)))
  ([start-idx end-idx series]
     (when series
