aboutsummaryrefslogtreecommitdiff
path: root/scripts/precompute
diff options
context:
space:
mode:
authorPjotr Prins2023-11-17 12:19:15 +0100
committerPjotr Prins2023-11-17 12:19:15 +0100
commit71c8e03b77dc094567c3b522909d7aa6995585f4 (patch)
treebfe50eb15d185139b37fa9258e756ccb3657def9 /scripts/precompute
parentc401f66de2dbcbc41dd9551490563543092de242 (diff)
downloadgn-guile-71c8e03b77dc094567c3b522909d7aa6995585f4.tar.gz
Now we have a list of strain names for the BXD
Diffstat (limited to 'scripts/precompute')
-rwxr-xr-xscripts/precompute/precompute-hits.scm14
1 files changed, 7 insertions, 7 deletions
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")