diff options
| author | Pjotr Prins | 2024-01-04 12:51:45 +0100 |
|---|---|---|
| committer | Pjotr Prins | 2024-01-04 12:51:45 +0100 |
| commit | 0721d15f275ce9abd55e60955265997f0e39db3d (patch) | |
| tree | 31a7e79c2c4697f4d5ecadb8f391b9380c944942 /scripts | |
| parent | 691eed969ac4bb9fa43358b9a8e0d1ea43accbea (diff) | |
| download | gn-guile-0721d15f275ce9abd55e60955265997f0e39db3d.tar.gz | |
Call precompute with population name - BXD only, for now
Diffstat (limited to 'scripts')
| -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) |