 
 (defn extract-fields
   "Returns a vector containing the value of the `temp-330`, `conf-50`,
-  `both-preds` and `count` fields of the supplied fire tuple."
+  `both-preds` and `count` fields of the supplied fire tuple.
+
+   Example: (extract-fields {:temp-330 1, :conf-50 0, :both-preds 3, :count 4})
+    [1 0 3 4]"
+  
   [tuple]
   (map tuple [:temp-330 :conf-50 :both-preds :count]))
 
 (defn add-fires
-  "Returns a new `FireTuple` object generated by summing up the fields
-  of each of the supplied `FireTuple` objects."
+  "Returns a new `fire-value` object generated by summing up the fields
+  of each of the supplied `fire-value` objects.
+
+   Example:
+    (schema/add-fires
+      {:temp-330 1, :conf-50 0, :both-preds 3, :count 4}
+      {:temp-330 1, :conf-50 0, :both-preds 3, :count 4})
+
+    {:count 8, :conf-50 0, :temp-330 2, :both-preds 6}" 
   [& f-tuples]
   (apply merge-with + f-tuples))
 
 (defn adjust-fires
   "Returns the section of fires data found appropriate based on the
-  information in the estimation parameter map."
+  information in the estimation parameter map.
+
+  (let [est-map {:est-start \"2005-12-01\"
+                 :est-end \"2011-04-01\"
+                 :t-res \"32\"
+                 :neighbors 1
+                 :window-dims [600 600]
+                 :vcf-limit 25
+                 :long-block 15
+                 :window 5}
+        f-series []]
+    (adjust-fires est-map f-series)"
+  ;; TODO: add a sample f-series
   [{:keys [est-start est-end t-res]} f-series]
   (let [[start end] (for [pd [est-start est-end]]
                       (date/datetime->period "32" pd))]
     [(->> (:series f-series)
           (u/trim-seq start (inc end) (:start-idx f-series))
           (timeseries-value start))]))
+  
 
 ;; # Compound Objects
 

   :t-stat     "t-statistic for the relevant month."})

(defn forma-value
  [fire short long t-stat]
  {:fire-value (or fire (fire-value 0 0 0 0))
   :short-drop short


(defn neighbor-value
  "Accepts either a forma value or a sequence of sub-values."
  ;; TODO: come up with an example
  ([{:keys [fire-value short-drop long-drop t-stat]}]
     (neighbor-value fire-value 1
                     short-drop short-drop
