diff options
Diffstat (limited to 'scripts')
| -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) )))) |