diff options
| author | Pjotr Prins | 2024-05-13 11:27:47 +0200 |
|---|---|---|
| committer | Pjotr Prins | 2024-05-13 11:27:47 +0200 |
| commit | bbbd8742852984e44c934d5389a12bafcf00df99 (patch) | |
| tree | 8ef6284c5474d961b1eeb008669d10f716e7ec7c | |
| parent | 0668cbe51f9f5f691351ee95e6d4d6567ef50003 (diff) | |
| download | gn-guile-bbbd8742852984e44c934d5389a12bafcf00df99.tar.gz | |
Simplified a bit and batch size 500 appears to work alright
| -rwxr-xr-x | scripts/precompute/list-traits-to-compute.scm | 10 |
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 ))) |