From 0721d15f275ce9abd55e60955265997f0e39db3d Mon Sep 17 00:00:00 2001 From: Pjotr Prins Date: Thu, 4 Jan 2024 12:51:45 +0100 Subject: Call precompute with population name - BXD only, for now --- scripts/precompute/precompute-hits.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'scripts') 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) -- cgit v1.2.3