Mercurial > cortex
comparison org/worm_learn.clj @ 526:01934317b25b
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 [])] |