aboutsummaryrefslogtreecommitdiff
path: root/gn/data
diff options
context:
space:
mode:
Diffstat (limited to 'gn/data')
-rw-r--r--gn/data/genotype.scm23
1 files changed, 23 insertions, 0 deletions
diff --git a/gn/data/genotype.scm b/gn/data/genotype.scm
new file mode 100644
index 0000000..c7cb63c
--- /dev/null
+++ b/gn/data/genotype.scm
@@ -0,0 +1,23 @@
+(define-module (gn data genotype)
+ #:use-module (json)
+ #:use-module (ice-9 match)
+ #:use-module (ice-9 format)
+ #:use-module (ice-9 iconv)
+ #:use-module (ice-9 receive)
+ #:use-module (ice-9 string-fun)
+ ;; #:use-module (gn db sparql)
+ #:use-module (dbi dbi)
+ #:use-module (gn db mysql)
+ #:use-module (gn data group)
+ #:use-module (gn util convert)
+
+ #:export (
+ geno-inds-bxd
+ ))
+
+(define (geno-inds-bxd fn)
+ (let [(js (call-with-input-file fn
+ (lambda (port)
+ (json->scm port))))]
+ (vector->list (assoc-ref (car (vector->list (assoc-ref js "genofile"))) "sample_list"))
+))