 (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
 

  sub-timeseries of length [long-block].  The drops are smoothed by a moving 
  average window of length [window]."
  [ts reli-ts long-block window]
  (->> (fix-time-series ts reli-ts)
       (windowed-apply ols-coefficient long-block)
       (windowed-apply average window)
       (reduce min)))

  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))
