Mercurial > cortex

comparison org/worm_learn.clj @ 526:01934317b25b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
changes from conference.
author Robert McIntyre <rlm@mit.edu>
date Mon, 21 Apr 2014 02:11:29 -0400
parents ced955c3c84f
children 0b891e0dd809
comparison
equal deleted inserted replaced
523:90b236381642 526:01934317b25b
523 (resting? empathy) (.setText text "Resting") 523 (resting? empathy) (.setText text "Resting")
524 :else (.setText text "Unknown")) 524 :else (.setText text "Unknown"))
525 525
526 (println-repl experience-matches-empathy) 526 (println-repl experience-matches-empathy)
527 (swap! accuracy #(conj % experience-matches-empathy))))))) 527 (swap! accuracy #(conj % experience-matches-empathy)))))))
528 528
529 (defn empathy-experiment-2 []
530 (.start (worm-world :experience-watch (compare-empathy-with-baseline
531 (atom []))
532 :record false :worm worm*)))
533
529 (defn accuracy [v] 534 (defn accuracy [v]
530 (float (/ (count (filter true? v)) (count v)))) 535 (float (/ (count (filter true? v)) (count v))))
531 536
532 (defn test-empathy-accuracy [] 537 (defn test-empathy-accuracy []
533 (let [res (atom [])] 538 (let [res (atom [])]