                    (:Accuracy eva)))
           (reduce +)
           (* (/ 1 k))))))
-
 
 (defn -main [& args]
   (if (= (count args) 8)


(defn evaluation
  ([results facts exp]
   {:pre [(coll? results) (coll? facts) (map? @exp)]}
   (let [numd (count results)]
     (confusion-matrix results facts exp))))


    [-1  1] (update-exp inc :FN exp)))

(defn confusion-matrix [preds facts exp]
  {:pre [(coll? preds) (coll? facts) (reftype? exp) (map? @exp)]}
  (if (or (empty? preds) (empty? facts))
    (let [TP (:TP @exp) FP (:FP @exp)
          TN (:TN @exp) FN (:FN @exp)]
