From fb22ae84c143a27ddc4699327e8aff6c93a0bf6c Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Fri, 24 Nov 2023 09:07:55 +0100
Subject: Fetch genotype inds from json file

---
 scripts/precompute/precompute-hits.scm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'scripts')

diff --git a/scripts/precompute/precompute-hits.scm b/scripts/precompute/precompute-hits.scm
index 0bce8d7..e8ba0a2 100755
--- a/scripts/precompute/precompute-hits.scm
+++ b/scripts/precompute/precompute-hits.scm
@@ -7,6 +7,7 @@
 (use-modules (dbi dbi)
              (gn db mysql)
              (gn data dataset)
+             (gn data genotype)
              (gn data hits)
              (gn data strains)
              (gn util convert)
@@ -16,6 +17,11 @@
              (srfi srfi-1)
              )
 
+
+(define inds (geno-inds-bxd "BXD.json"))
+(display inds)
+(assert (= 235 (length inds)))
+
 ;; potentially you want to test connection with mysql client:
 ;;
 ;;    mysql -uwebqtlout -pwebqtlout -A -h 127.0.0.1 -P 3306 db_webqtl -e "show tables;"
-- 
cgit v1.2.3