From 33564d9b0cf0adb2e0d1f7c41cf768afc5b98c2a Mon Sep 17 00:00:00 2001 From: Rowan Torbitzky-Lane Date: Thu, 27 Feb 2025 00:01:38 -0600 Subject: [PATCH] documentation for maxmin downsample --- src/HushGP/GP/Downsample.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/HushGP/GP/Downsample.hs b/src/HushGP/GP/Downsample.hs index 7d1b120..87bd71c 100644 --- a/src/HushGP/GP/Downsample.hs +++ b/src/HushGP/GP/Downsample.hs @@ -22,6 +22,8 @@ updateCaseDistances evaledPop downsampleData trainingData informedDownsamplingTy selectDownsampleRandom :: PushArgs -> [PushData] -> IO [PushData] selectDownsampleRandom pushArgs pushData = take (floor (downsampleRate pushArgs * fromIntegral @Int @Float (length pushData))) . shuffle' pushData (length pushData) <$> initStdGen +-- |Selects a downsample that has it's cases maximally far away by sequentially +-- adding cases to the downsample that have their closest case maximally far away selectDownsampleMaxmin :: PushArgs -> [PushData] -> IO [PushData] selectDownsampleMaxmin pushArgs@(PushArgs {downsampleRate = dsRate}) pushData = do shuffledCases <- shuffle' pushData (length pushData) <$> initStdGen