rowan.a.tl/propeller
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added ability to evaluate individuals every k generations

Browse Source
This commit is contained in:
Ryan Boldi 2022-05-14 19:49:51 -04:00
parent d9171bcb51
commit 667b04312b
4 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/propeller/gp.cljc
View File

@ -33,7 +33,7 @@
(defn gp
"Main GP loop."
[{:keys [population-size max-generations error-function instructions
max-initial-plushy-size solution-error-threshold mapper ds-parent-rate]
max-initial-plushy-size solution-error-threshold mapper ds-parent-rate ds-parent-gens]
:or {solution-error-threshold 0.0
;; The `mapper` will perform a `map`-like operation to apply a function to every individual
;; in the population. The default is `map` but other options include `mapv`, or `pmap`.
@ -48,13 +48,16 @@
(fn [_] {:plushy (genome/make-random-plushy instructions max-initial-plushy-size)})
(range population-size))
indexed-training-data (downsample/assign-indices-to-data (downsample/initialize-case-distances argmap))]
(prn {:ind-training-data (first indexed-training-data)})
(let [training-data (if (= (:parent-selection argmap) :ds-lexicase)
(case (:ds-function argmap)
:case-avg (downsample/select-downsample-avg indexed-training-data argmap)
:case-maxmin (downsample/select-downsample-maxmin indexed-training-data argmap)
(downsample/select-downsample-random indexed-training-data argmap))
indexed-training-data) ;defaults to random
parent-reps (take (* ds-parent-rate (count population)) (shuffle population))
parent-reps (if (zero? (mod generation ds-parent-gens)) ;every ds-parent-gens generations
(take (* ds-parent-rate (count population)) (shuffle population))
'()) ;else just empty list
rep-evaluated-pop (sort-by :total-error
(mapper
(partial error-function argmap indexed-training-data)
@ -97,5 +100,7 @@
(repeatedly population-size
#(variation/new-individual ds-evaluated-pop argmap)))
(if (= (:parent-selection argmap) :ds-lexicase)
(downsample/update-case-distances rep-evaluated-pop indexed-training-data indexed-training-data) ; update distances every generation
(if (zero? (mod generation ds-parent-gens))
(downsample/update-case-distances rep-evaluated-pop indexed-training-data indexed-training-data) ; update distances every ds-parent-gens generations
indexed-training-data)
indexed-training-data))))))

3
src/propeller/problems/PSB2/fizz_buzz.cljc
View File

@ -68,6 +68,9 @@
:error-function error-function
:training-data (:train train-and-test-data)
:testing-data (:test train-and-test-data)
:case-t-size (count (:train train-and-test-data))
:case-parent-rate 0
:case-parent-gens 1
:max-generations 300
:population-size 1000
:max-initial-plushy-size 250

3
src/propeller/problems/PSB2/fuel_cost.cljc
View File

@ -70,6 +70,9 @@
:error-function error-function
:training-data (:train train-and-test-data)
:testing-data (:test train-and-test-data)
:case-t-size (count (:train train-and-test-data))
:case-parent-rate 0
:case-parent-gens 1
:max-generations 300
:population-size 1000
:max-initial-plushy-size 250

3
src/propeller/problems/PSB2/gcd.cljc
View File

@ -78,6 +78,9 @@
:error-function error-function
:training-data (:train train-and-test-data)
:testing-data (:test train-and-test-data)
:case-t-size (count (:train train-and-test-data))
:case-parent-rate 0
:case-parent-gens 1
:max-generations 300
:population-size 1000
:max-initial-plushy-size 250