   [num-months]
   (i/bind-columns (ones-column num-months)
                   (seasonal-rows num-months)))
+
 
 (defn deseasonalize
   "deseasonalize a time-series [ts] using monthly dummies. returns

; (defn matrix-map
;   [m func]
;   "Apply a function to every element in a matrix"
;   (map (fn [x] (map func x)) m))
  [x]
  (i/matrix (repeat x 1)))

;De-seasonalize time-series

(defn seasonal-rows [n]
  "lazy sequence of monthly dummy vectors"
  (vec
   (take n (partition 11 1 (cycle (cons 1 (repeat 11 0)))))))

(defn seasonal-matrix
  "create a matrix of [num-months]x11 of monthly dummies, where
