From 71c8e03b77dc094567c3b522909d7aa6995585f4 Mon Sep 17 00:00:00 2001 From: Pjotr Prins Date: Fri, 17 Nov 2023 12:19:15 +0100 Subject: Now we have a list of strain names for the BXD --- scripts/precompute/precompute-hits.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'scripts') diff --git a/scripts/precompute/precompute-hits.scm b/scripts/precompute/precompute-hits.scm index 5955fb1..acd7cdf 100755 --- a/scripts/precompute/precompute-hits.scm +++ b/scripts/precompute/precompute-hits.scm @@ -37,18 +37,18 @@ (display row) ) (newline) - (dbi-query db "SELECT StrainId,Strain.Name FROM Strain, StrainXRef WHERE StrainXRef.StrainId = Strain.Id AND StrainXRef.InbredSetId = 1 AND Used_for_mapping='Y' ORDER BY StrainId;") - (let [(row (get-row db))] - (display row) - ) + ; (dbi-query db "SELECT StrainId,Strain.Name FROM Strain, StrainXRef WHERE StrainXRef.StrainId = Strain.Id AND StrainXRef.InbredSetId = 1 AND Used_for_mapping='Y' ORDER BY StrainId;") + ; (let [(row (get-row db))] + ; (display row) + ; ) (let [(result (get-rows-apply db (lambda (r) `(,(assoc-ref r "StrainId") . ,(assoc-ref r "Name"))) '()))] (display (car result))) (newline) - (display (strain-names)) - ; (display (car ids)) + (define bxd-strains (bxd-strain-id-names #:map? #t)) (newline) - ; (display (assoc 5 ids)) + (display bxd-strains) + (display (assoc 64728 bxd-strains)) (newline) (newline) (dbi-query db "SELECT * FROM ProbeSetXRef LIMIT 3") -- cgit v1.2.3