aboutsummaryrefslogtreecommitdiff
path: root/gn/runner
diff options
context:
space:
mode:
authorPjotr Prins2023-11-21 11:26:07 +0100
committerPjotr Prins2023-11-21 11:26:07 +0100
commite4cb959730ed5d89c8f5e96de2ddbd405fcf2cc9 (patch)
treee8475ebb93605cd81edd6b3d12fc4a80ca24093e /gn/runner
parentf65cada4f70d7449f38f1fef5164d7c52283a0e9 (diff)
downloadgn-guile-e4cb959730ed5d89c8f5e96de2ddbd405fcf2cc9.tar.gz
Adding GEMMA
Diffstat (limited to 'gn/runner')
-rw-r--r--gn/runner/gemma.scm29
1 files changed, 29 insertions, 0 deletions
diff --git a/gn/runner/gemma.scm b/gn/runner/gemma.scm
new file mode 100644
index 0000000..31a14f7
--- /dev/null
+++ b/gn/runner/gemma.scm
@@ -0,0 +1,29 @@
+(define-module (gn runner gemma)
+ #: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)
+
+ #:export (
+ run-gemma
+ ))
+
+(define (run-gemma data-id name trait-name traits)
+ (if name
+ (display (string-append "WE HAVE OUR BXD DATASET " name " and trait " trait-name " for precompute!\n")))
+ (display data-id)
+ (display traits)
+ (newline)
+ ;; ---- write phenotype file
+ (call-with-output-file "test.tmp"
+ (lambda (port)
+ (write 12 port)
+ (newline port)
+ (write "HELLO" port)
+ ))
+
+ ;; ---- start GEMMA precompute
+ (system "gemma")
+ )