about summary refs log tree commit diff
diff options
context:
space:
mode:
-rwxr-xr-xexamples/classification.scm6
-rwxr-xr-xexamples/dataset-metadata.scm8
-rwxr-xr-xexamples/phenotype.scm2
3 files changed, 8 insertions, 8 deletions
diff --git a/examples/classification.scm b/examples/classification.scm
index 3843c49..828befa 100755
--- a/examples/classification.scm
+++ b/examples/classification.scm
@@ -59,7 +59,7 @@
   (triples "gnc:Set"
     (set skos:member
          (string->identifier
-          "set" (field InbredSet Name)))))
+          "set" (field InbredSet Name InbredSetName)))))
 
 (define-transformer species
   (tables (Species))
@@ -97,10 +97,10 @@
    (gnt:mappingMethod a owl:ObjectProperty)
    (gnt:mappingMethod rdfs:domain gnc:set))
   (triples (string->identifier
-            "set" (field InbredSet Name))
+            "set" (field InbredSet Name InbredSetName))
     (set skos:inScheme 'gnc:ResourceClassificationScheme)
     (set rdfs:label (field InbredSet FullName))
-    (set skos:prefLabel (field InbredSet Name))
+    (set skos:prefLabel (field InbredSet Name InbredSetName))
     (set gnt:geneticType (field InbredSet GeneticType))
     (set gnt:family (field InbredSet Family))
     (set gnt:mappingMethod (field MappingMethod Name))
diff --git a/examples/dataset-metadata.scm b/examples/dataset-metadata.scm
index e6ef350..be8337d 100755
--- a/examples/dataset-metadata.scm
+++ b/examples/dataset-metadata.scm
@@ -186,7 +186,7 @@
                            (field DatasetStatus DatasetStatusName)))
     (set xkos:classifiedUnder
          (string->identifier
-          "set" (field InbredSet Name)))
+          "set" (field InbredSet Name InbredSetName)))
     (set gnt:hasTissue (string->identifier "tissue"
                                            (field Tissue Short_Name)))
     (set gnt:usesNormalization
@@ -257,7 +257,7 @@
                       '^^xsd:date))
     (set xkos:classifiedUnder
          (string->identifier
-          "set" (field InbredSet Name)))))
+          "set" (field InbredSet Name InbredSetName)))))
 
 (define-transformer genofreeze
   (tables (GenoFreeze
@@ -283,7 +283,7 @@
                       '^^xsd:date))
     (set xkos:classifiedUnder
          (string->identifier
-            "set" (field InbredSet Name)))))
+            "set" (field InbredSet Name InbredSetName)))))
 
 ;; Molecular Traits are also referred to as ProbeSets
 (define-transformer probesetfreeze
@@ -326,7 +326,7 @@
           (field Tissue Short_Name)))
     (set xkos:classifiedUnder
          (string->identifier
-          "set" (field InbredSet Name)))))
+          "set" (field InbredSet Name InbredSetName)))))
 
 
 
diff --git a/examples/phenotype.scm b/examples/phenotype.scm
index ad3c959..2a6b192 100755
--- a/examples/phenotype.scm
+++ b/examples/phenotype.scm
@@ -55,7 +55,7 @@
     (set rdf:type 'gnc:Phenotype)
     (set xkos:classifiedUnder
          (string->identifier
-          "set" (field InbredSet Name)
+          "set" (field InbredSet Name InbredSetName)
           #:separator ""
           #:proc string-capitalize-first))
     ;; This is the trait's name