aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/precompute/precompute-hits.scm43
1 files changed, 14 insertions, 29 deletions
diff --git a/scripts/precompute/precompute-hits.scm b/scripts/precompute/precompute-hits.scm
index acd7cdf..a6617d9 100755
--- a/scripts/precompute/precompute-hits.scm
+++ b/scripts/precompute/precompute-hits.scm
@@ -16,45 +16,30 @@
;; mysql -uwebqtlout -pwebqtlout -A -h 127.0.0.1 -P 3306 db_webqtl -e "show tables;"
;;
-#!
-(db-query "SELECT * FROM ProbeSetXRef LIMIT 3")
-(db-check)
-(let [(row (db-get-row))]
- (display row)
- )
-!#
-
(call-with-db
(lambda (db)
(begin
- (dbi-query db "SELECT * FROM ProbeSetXRef LIMIT 3")
- (let [(row (get-row db))]
- (display row)
- )
- (newline)
- (dbi-query db "SELECT * FROM ProbeSetXRef LIMIT 3")
- (let [(row (get-row db))]
- (display row)
- )
- (newline)
+ ;(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)
; )
- (let [(result (get-rows-apply db (lambda (r) `(,(assoc-ref r "StrainId") . ,(assoc-ref r "Name"))) '()))]
- (display (car result)))
+ ;(let [(result (get-rows-apply db (lambda (r) `(,(assoc-ref r "StrainId") . ,(assoc-ref r "Name"))) '()))]
+ ; (display (car result)))
- (newline)
+ ;(newline)
(define bxd-strains (bxd-strain-id-names #:map? #t))
- (newline)
- (display bxd-strains)
(display (assoc 64728 bxd-strains))
(newline)
- (newline)
- (dbi-query db "SELECT * FROM ProbeSetXRef LIMIT 3")
- (let [(row (get-row db))]
- (display row)
- )
- (db-check2 db)
+ ;(newline)
+ ;(dbi-query db "SELECT * FROM ProbeSetXRef LIMIT 3")
+ ;(let [(row (get-row db))]
+ ; (display row)
+ ; )
+ ;(db-check2 db)
+ ;(newline)
+ ;; get first dataset for precompute
+ (dbi-query db "select ProbeSetId, Locus, DataId from ProbeSetXRef where Locus_old is NULL LIMIT 1")
+ (display (get-row db))
(newline)
)))