From 591dd752274dd4530040b272fb0c0513a2ce203d Mon Sep 17 00:00:00 2001 From: Pjotr Prins Date: Sat, 3 Aug 2024 14:00:09 +0200 Subject: precompute: pass in trait id for gemma --- scripts/precompute/list-traits-to-compute.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'scripts/precompute/list-traits-to-compute.scm') diff --git a/scripts/precompute/list-traits-to-compute.scm b/scripts/precompute/list-traits-to-compute.scm index fbe89a6..9f900d1 100755 --- a/scripts/precompute/list-traits-to-compute.scm +++ b/scripts/precompute/list-traits-to-compute.scm @@ -149,7 +149,6 @@ The following is produced by gemma-wrapper as metadata (lambda (db) (begin ;; (let [(bxd-strains (memo-bxd-strain-id-names #:used-for-mapping? #t))] - (display "writing-phenotypes...") (define (run-list-traits-to-compute db num prev-id) ;; ---- Build a query to collect num traits (let* [(count (if (< batch-size num) @@ -164,6 +163,7 @@ The following is produced by gemma-wrapper as metadata (data-ids-query (string-join data-str-ids " OR ")) (query (string-append "SELECT Id,StrainId,value FROM ProbeSetData WHERE " data-ids-query)) ] + (format #t "writing-phenotypes from ~d to ~d batch ~d to ~d\n" first-id (+ first-id num) prev-id (+ prev-id count)) (display query) (dbi-query db query) ;; ---- Walk each resulting trait and build a hash of data-id and list of trait values -- cgit v1.2.3