 (ns forma.source.logistic
-  (:use [clojure.math.numeric-tower :only (sqrt floor abs expt)]
-        [clojure-csv.core])
+  (:use [clojure-csv.core])
   (:require [incanter.core :as i]))
 
 (def mys-data (let [file "/Users/danhammer/Desktop/testmys/allmys.txt"]

      (if (zero? iter)
        beta
        (recur (let [inc-beta (beta-update beta labels features rdg-cons)]
                 (println "")
                 (println (flatten beta))
                 map + beta inc-beta)
               (dec iter))))))

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

(defn feature-vec
  [n]
  (map (partial cons 1)
       (for [x (range n)]
         (take 22 (repeatedly rand)))))

(defn label-vec
  [n]
  (for [x (range n)] (if (> (rand) 0.5) 1 0)))

(defn scaled-vector
  [scalar coll]
