 (defn windowed-apply 
   "apply a function [f] to a window along a sequence [xs] of length [window]"
   [f window xs]
-  (map f (partition window 1 xs)))
+  (pmap f (partition window 1 xs)))
 
 ;; WHOOPBANG
 


(defn whizbang
  [t-series start-period end-period & cofactors]
  [t-series (apply vector cofactors)])



;; (map long-trend
;;        ((partial lengthening-ts start-period end-period)
;;           [t-series cofactors]))

  element is that associated with the time-trend. The try statement is
  meant to check whether the cofactor matrix is singular."
  [attributes t-series & cofactors]
  #_{:pre [(not (empty? cofactors))]}
  (let [y (deseasonalize (vec t-series))
        X (if (empty? cofactors)
            (i/matrix (t-range y))
