about summary refs log tree commit diff
path: root/scripts
diff options
context:
space:
mode:
authorPjotr Prins2024-01-04 12:51:45 +0100
committerPjotr Prins2024-01-04 12:51:45 +0100
commit0721d15f275ce9abd55e60955265997f0e39db3d (patch)
tree31a7e79c2c4697f4d5ecadb8f391b9380c944942 /scripts
parent691eed969ac4bb9fa43358b9a8e0d1ea43accbea (diff)
downloadgn-guile-0721d15f275ce9abd55e60955265997f0e39db3d.tar.gz
Call precompute with population name - BXD only, for now
Diffstat (limited to 'scripts')
-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)