about summary refs log tree commit diff
path: root/examples/molecular-traits.scm
diff options
context:
space:
mode:
Diffstat (limited to 'examples/molecular-traits.scm')
-rwxr-xr-xexamples/molecular-traits.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/examples/molecular-traits.scm b/examples/molecular-traits.scm
index 0393a0d..2f95ca3 100755
--- a/examples/molecular-traits.scm
+++ b/examples/molecular-traits.scm
@@ -35,7 +35,7 @@
            (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 GROUP BY Species.Name, Tissue.Short_Name")
+          "WHERE ProbeSetFreeze.public > 0 AND Species.Name != 'monkey' GROUP BY Species.Name, Tissue.Short_Name")
   (triples (string->identifier "set" (field InbredSet Name InbredSetName) #:separator "_")
     (multiset gnt:has_probeset_data
               (map (cut string->identifier "dataset" <> #:separator "_")
@@ -50,7 +50,7 @@
            (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")
+          "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)
@@ -73,7 +73,7 @@
            (inner-join AvgMethod "ON AvgMethod.AvgMethodId = ProbeSetFreeze.AvgID")
            (inner-join InfoFiles "ON InfoFiles.InfoPageName = ProbeSetFreeze.Name")
            (left-join GeneChip "ON GeneChip.Id =  InfoFiles.GeneChipId"))
-          "WHERE ProbeSetFreeze.public > 0")
+          "WHERE ProbeSetFreeze.public > 0 AND Species.Name != 'monkey'")
   (schema-triples
    (gnt:has_case_info a owl:ObjectProperty)
    (gnt:has_case_info rdfs:comment "Information about the cases used in this platform")