diff options
author | Pjotr Prins | 2023-11-21 11:26:07 +0100 |
---|---|---|
committer | Pjotr Prins | 2023-11-21 11:26:07 +0100 |
commit | e4cb959730ed5d89c8f5e96de2ddbd405fcf2cc9 (patch) | |
tree | e8475ebb93605cd81edd6b3d12fc4a80ca24093e /gn/runner | |
parent | f65cada4f70d7449f38f1fef5164d7c52283a0e9 (diff) | |
download | gn-guile-e4cb959730ed5d89c8f5e96de2ddbd405fcf2cc9.tar.gz |
Adding GEMMA
Diffstat (limited to 'gn/runner')
-rw-r--r-- | gn/runner/gemma.scm | 29 |
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") + ) |