about summary refs log tree commit diff
diff options
context:
space:
mode:
-rwxr-xr-xexamples/probesets-experiment-metadata.scm21
1 files changed, 11 insertions, 10 deletions
diff --git a/examples/probesets-experiment-metadata.scm b/examples/probesets-experiment-metadata.scm
index b2eb93e..83a8ead 100755
--- a/examples/probesets-experiment-metadata.scm
+++ b/examples/probesets-experiment-metadata.scm
@@ -23,12 +23,13 @@
             (uri-encode
              (format #f "~a_~a" (field ProbeSetFreeze Name ProbeSetFreezeName) (field ProbeSet Name ProbeSetName))) #:separator "_")
     (set rdf:type 'gnc:molecular_trait_metadata)
-    (set dcat:distribution
-         (string->symbol
-          (sanitize-rdf-string
-           (format #f "gnd:~a.json"
-                   (field ("CONCAT(ProbeSetFreeze.Name, '_', ProbeSet.Name)"
-                           PublishFreeze))))) )
+    ;; KLUDGE: Agree with Alex on how we want to name this.
+    ;; (set dcat:distribution
+    ;;      (string->symbol
+    ;;       (sanitize-rdf-string
+    ;;        (format #f "gnd:~a.json"
+    ;;                (field ("CONCAT(ProbeSetFreeze.Name, '_', ProbeSet.Name)"
+    ;;                        PublishFreeze))))) )
     (set gnt:has_probeset (string->identifier "probeset" (field ProbeSet Name ProbeSetName)))
     (set dcat:isPartOf (string->identifier "dataset" (field ProbeSetFreeze Name ProbeSetFreezeName)
                                            #:separator "_"))
@@ -41,11 +42,11 @@
                         (field ("IFNULL((ProbeSetXRef.LRS/4.604), '')" lrs))
                         '^^xsd:double))
     (set gnt:pvalue (annotate-field
-                        (field ("IFNULL((ProbeSetXRef.pValue), '')" pValue))
-                        '^^xsd:double))
+                     (field ("IFNULL((ProbeSetXRef.pValue), '')" pValue))
+                     '^^xsd:double))
     (set gnt:additive (annotate-field
-                        (field ("IFNULL((ProbeSetXRef.additive), '')" additive))
-                        '^^xsd:double))
+                       (field ("IFNULL((ProbeSetXRef.additive), '')" additive))
+                       '^^xsd:double))
     (set gnt:h2 (annotate-field
                  (field ("IFNULL((ProbeSetXRef.h2), '')" h2))
                  '^^xsd:double))))