           []
           coll))
 
-;; ### WHOOPBANG
+;; WHOOPBANG
 
 ;; The following is a routine, under the header WHOOPBANG,
 ;; which collects the greatest short-term drop in a preconditioned and

    {:reference (subvec full-ts (dec x) x)
     :for-est   (subvec full-ts (dec y) z)}))

;; ### WHIZBANG

;; These functions will extract the OLS coefficient associated with a
;; time trend, along with the t-statistic on that coefficient.  For


(defn make-monotonic
  "move through a collection `coll` picking up the min or max values, depending
  on the value of `comparator` which can be either `min` or `max`.  This is very
  similar, I think, to the `reduce` function, but with side effects that print
  into a vector."
  [comparator coll]
  (reduce (fn [acc val]
            (conj acc
