 (defn total-log-likelihood
   "returns the total log likelihood for a group of pixels; input
   labels and features for the group of pixels, aligned correctly so
-  that the first label and feature correspond to the first pixel.
-  Example:
-  (total-log-likelihood y X) => -69.31471805599459"
+  that the first label and feature correspond to the first pixel."
   [beta-seq labels features]
   (reduce + (map (partial log-likelihood beta-seq) labels features)))
 

(def X (map (partial cons 1) (take 235469 mys-features)))
(def beta (repeat 23 0))

(defn one-minus
  [coll]
  (map #(- 1 %) coll))

(defn scaled-vector
  [scalar coll]

       feature-seqs))

(defn score-seq
  "returns the scores for each parameter"
  [beta-seq labels features]
  (let [prob-seq (probability-calc beta-seq features)]
    (i/mmult (i/trans features) (map - labels prob-seq))))
