diff options
| author | Pjotr Prins | 2024-05-08 08:52:34 +0200 |
|---|---|---|
| committer | Pjotr Prins | 2024-05-08 08:52:34 +0200 |
| commit | ac351e7f5202e8992382e811ba09714a26b3ccd0 (patch) | |
| tree | bacf8f4f3f2ab326bbdec5a032296b6a9be63261 | |
| parent | d0095f3e90f75b24ea73483037abbe19e76fc838 (diff) | |
| download | gn-guile-ac351e7f5202e8992382e811ba09714a26b3ccd0.tar.gz | |
List all traits
| -rwxr-xr-x | scripts/precompute/list-traits-to-compute.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/scripts/precompute/list-traits-to-compute.scm b/scripts/precompute/list-traits-to-compute.scm index 163e197..6e9dcb3 100755 --- a/scripts/precompute/list-traits-to-compute.scm +++ b/scripts/precompute/list-traits-to-compute.scm @@ -87,7 +87,16 @@ When that is the case we might as well write the phenotype file because we have (query (string-append "SELECT Id,StrainId,value FROM ProbeSetData WHERE " data-ids-query)) ] (display query) + (dbi-query db query) + (let [(id-traits (get-rows-apply db + (lambda (r) + (let [(id (assoc-ref r "Id")) + (strain-id (assoc-ref r "StrainId")) + (value (assoc-ref r "value"))] + `(,id ,strain-id ,value))) + '()))] + (display id-traits)) )) - (run-list-traits-to-compute db 0 50) ;; start precompute + (run-list-traits-to-compute db 0 5) ;; start precompute ;; (write bxd-strains) )))) |