about summary refs log tree commit diff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/molecular-traits.scm24
1 files changed, 4 insertions, 20 deletions
diff --git a/examples/molecular-traits.scm b/examples/molecular-traits.scm
index c761cd3..bed0c6c 100755
--- a/examples/molecular-traits.scm
+++ b/examples/molecular-traits.scm
@@ -51,26 +51,6 @@
                             dataset_name))
                     #\,)))))
 
-(define-transformer gn:dataset->set/species/molecular_trait
-  (tables (Species
-           (inner-join InbredSet "ON InbredSet.SpeciesId = Species.Id")
-           (inner-join ProbeFreeze "ON ProbeFreeze.InbredSetId = InbredSet.Id")
-           (inner-join ProbeSetFreeze "ON ProbeSetFreeze.ProbeFreezeId = ProbeFreeze.Id")
-           (inner-join Tissue "ON ProbeFreeze.TissueId = Tissue.Id"))
-          "WHERE ProbeSetFreeze.public > 0 AND Species.Name != 'monkey'")
-  (schema-triples
-   (gnt:has_molecular_trait rdf:type owl:ObjectProperty)
-   (gnt:has_molecular_trait rdfs:domain gnc:set)
-   (gnt:has_molecular_trait rdfs:range gnc:molecular_trait)
-   (gnt:has_molecular_trait rdfs:label "has molecular trait"))
-  (triples (string->identifier "dataset" (field ProbeSetFreeze Name) #:separator "_")
-    (set gnt:has_strain
-         (string->identifier "set" (field InbredSet Name InbredSetName) #:separator "_"))
-    (set gnt:has_species
-         (string->identifier "" (remap-species-identifiers (field Species Fullname))))
-    (set gnt:has_molecular_trait
-         (string->identifier "trait" (field Tissue Short_Name) #:separator "_"))))
-
 (define-transformer gn:dataset->metadata
   (tables (ProbeSetFreeze
            (inner-join ProbeFreeze "ON ProbeSetFreeze.ProbeFreezeId = ProbeFreeze.Id")
@@ -83,6 +63,10 @@
            (left-join GeneChip "ON GeneChip.Id =  InfoFiles.GeneChipId"))
           "WHERE ProbeSetFreeze.public > 0 AND Species.Name != 'monkey'")
   (schema-triples
+   (gnt:has_molecular_trait rdf:type owl:ObjectProperty)
+   (gnt:has_molecular_trait rdfs:domain gnc:set)
+   (gnt:has_molecular_trait rdfs:range gnc:molecular_trait)
+   (gnt:has_molecular_trait rdfs:label "has molecular trait")
    (gnt:uses_genechip a owl:ObjectProperty)
    (gnt:uses_genechip rdfs:domain dcat:Dataset)
    (gnt:uses_genechip skos:definition "The Platform this resource uses..")