aboutsummaryrefslogtreecommitdiff
path: root/scripts/precompute
diff options
context:
space:
mode:
authorPjotr Prins2024-05-13 11:27:47 +0200
committerPjotr Prins2024-05-13 11:27:47 +0200
commitbbbd8742852984e44c934d5389a12bafcf00df99 (patch)
tree8ef6284c5474d961b1eeb008669d10f716e7ec7c /scripts/precompute
parent0668cbe51f9f5f691351ee95e6d4d6567ef50003 (diff)
downloadgn-guile-bbbd8742852984e44c934d5389a12bafcf00df99.tar.gz
Simplified a bit and batch size 500 appears to work alright
Diffstat (limited to 'scripts/precompute')
-rwxr-xr-xscripts/precompute/list-traits-to-compute.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/scripts/precompute/list-traits-to-compute.scm b/scripts/precompute/list-traits-to-compute.scm
index 3f59863..37b3e6e 100755
--- a/scripts/precompute/list-traits-to-compute.scm
+++ b/scripts/precompute/list-traits-to-compute.scm
@@ -78,11 +78,11 @@ When that is the case we might as well write the phenotype file because we have
(lambda (db)
(begin
(let [(bxd-strains (memo-bxd-strain-id-names #:used-for-mapping? #t))]
- (define (run-list-traits-to-compute db num2 prev-id)
- (let* [(count (if (< batch-size num2)
+ (define (run-list-traits-to-compute db num prev-id)
+ (let* [(count (if (< batch-size num)
batch-size
- num2))
- (rest (- num2 count))
+ num))
+ (rest (- num count))
(hits (get-precompute-hits db prev-id count))
(data-ids (map (lambda (hit)
(let* [(data-id (assoc-ref hit "DataId"))
@@ -140,5 +140,5 @@ Usage: list-traits-to-compute [options...]
-n, --next count In batches of count size (default 5)
-h, --help Display this help
")
- (write-phenotypes start-id next 10)
+ (write-phenotypes start-id next 500) ;; batch size 500 appears to work best on my machine
)))