aboutsummaryrefslogtreecommitdiff
path: root/scripts/precompute/precompute-hits.scm
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/precompute/precompute-hits.scm')
-rwxr-xr-xscripts/precompute/precompute-hits.scm6
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)