API: endpoint gets trait values for BXD in GEMMA format

1 files changed, 0 insertions, 26 deletions

diff --git a/gn/data/dataset.scm b/gn/data/dataset.scm
index f099171..b552b21 100644
--- a/gn/data/dataset.scm
+++ b/gn/data/dataset.scm
@@ -18,7 +18,6 @@
             get-bxd-publish-list
             get-bxd-publish-values-list
             get-bxd-publish-name-value-dict
-            write-pheno-file
             ))
 
 (define (get-dataset db probesetfreeze-id)
@@ -71,28 +70,3 @@
                                                `(,(assoc-ref r "Name") . ,(assoc-ref r "value"))
                                                ) '())))
            )))))
-
-
-(define (write-pheno-file fn traits)
-  (define bxd-inds (geno-inds-bxd (pk "BXD.json")))
-  (assert (= 235 (length bxd-inds)))
-  (display bxd-inds)
-  (call-with-output-file fn
-    (lambda (port)
-      (for-each
-       (lambda (ind)
-         (begin
-           (let* [(value (assoc-ref traits ind))
-                  (outvalue (if value
-                                value
-                                "NA"))]
-             (if value
-                 (begin
-                   (format #t "~s ~s" ind outvalue)
-                   (newline)))
-             (display outvalue port)
-             (newline port))))
-       bxd-inds)
-      (close port)
-      ))
-)