diff options
Diffstat (limited to 'scripts/precompute/precompute-hits.scm')
-rwxr-xr-x | scripts/precompute/precompute-hits.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scripts/precompute/precompute-hits.scm b/scripts/precompute/precompute-hits.scm index 2036adc..0fabe8f 100755 --- a/scripts/precompute/precompute-hits.scm +++ b/scripts/precompute/precompute-hits.scm @@ -44,9 +44,9 @@ ssh -L 3306:127.0.0.1:3306 -f -N tux02.genenetwork.org ;(let [(result (get-rows-apply db (lambda (r) `(,(assoc-ref r "StrainId") . ,(assoc-ref r "Name"))) '()))] ; (display (car result))) - ;(newline) + ;; ---- fetch all known BXD sample/individual/strain names (define bxd-strains (bxd-strain-id-names #:map? #t)) - ;(display (assoc 64728 bxd-strains)) + ;(display (assoc 64728 bxd-strains)) ;(newline) ;(newline) ;(dbi-query db "SELECT * FROM ProbeSetXRef LIMIT 3") @@ -103,7 +103,7 @@ ssh -L 3306:127.0.0.1:3306 -f -N tux02.genenetwork.org (if (eq? non-bxd '()) (begin (set-precompute-hit-status! db data-id-str "GEMMA-START") - (run-gemma data-id name trait-name traits))) + (run-gemma "BXD" data-id name trait-name traits))) ;; disable precompute if non-bxd, for now, so it won't try again (set-precompute-hit-status! db data-id-str "NON-BXD") ;;(run-precompute db data-id) |