added test harness for single wain

mhwombat · Aug 17, 2015 · 53c427f · 53c427f
1 parent 1d1e9ef
commit 53c427f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ALife/Creatur/Wain/Interaction/Experiment.hs b/src/ALife/Creatur/Wain/Interaction/Experiment.hs
@@ -136,7 +136,7 @@ randomImageWain wainName u classifierSize = do
   let dr = buildPredictor fd predictorSize predictorThreshold cw rw
   -- TODO: Allow a range of random weights
   -- hw <- (makeWeights . take 3) <$> getRandomRs unitInterval
-  let hw = makeWeights [7, 3, 1]
+  let hw = makeWeights [0.7, 0.3, 0.1]
   dOut <- getRandomR $ view U.uDefaultOutcomeRange u
   dp <- getRandomR $ view U.uDepthRange u
   let mr = makeMuser dOut dp