Linear Regression Clojure / Incanter

(use 'incanter.core)

(def X [[-1 0 0] [-1 0 1] [-1 1 0] [-1 1 1]])
(def t [[0] [1] [1] [1]]) ; OR
(def t [[0] [0] [0] [1]]) ; AND
(def t [[0] [1] [1] [0]]) ; XOR
(def t [[1] [0] [0] [0]]) ; NOR
(def t [[1] [1] [1] [0]]) ; NAND

(defn linear-regression [X t]
  (let [X_T (trans X)]
    (mmult (solve (mmult X_T X)) X_T t)))

(doseq [m (map #(mmult (trans (linear-regression X t)) %) X)] (prn m))