diff options
Diffstat (limited to 'examples')
| -rwxr-xr-x | examples/dump-probeset-data.scm | 2 | ||||
| -rwxr-xr-x | examples/dump-species-metadata.scm | 12 |
2 files changed, 8 insertions, 6 deletions
diff --git a/examples/dump-probeset-data.scm b/examples/dump-probeset-data.scm index 7ab723d..54615bc 100755 --- a/examples/dump-probeset-data.scm +++ b/examples/dump-probeset-data.scm @@ -94,6 +94,8 @@ '(("gn:" "<http://genenetwork.org/id/>") ("gnc:" "<http://genenetwork.org/category/>") ("gnt:" "<http://genenetwork.org/id/>") + ("skos:" "<http://www.w3.org/2004/02/skos/core#>") + ("owl:" "<http://www.w3.org/2002/07/owl#>") ("rdf:" "<http://www.w3.org/1999/02/22-rdf-syntax-ns#>") ("rdfs:" "<http://www.w3.org/2000/01/rdf-schema#>") ("xsd:" "<http://www.w3.org/2001/XMLSchema#>"))) diff --git a/examples/dump-species-metadata.scm b/examples/dump-species-metadata.scm index 2f229e9..3bbda51 100755 --- a/examples/dump-species-metadata.scm +++ b/examples/dump-species-metadata.scm @@ -102,10 +102,10 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used. (left-join Species "ON Strain.SpeciesId = Species.SpeciesId"))) (schema-triples (gnc:strain skos:broader gnc:species) - (gnt:species rdfs:domain gnc:strain) - (gnt:species skos:definition "This resource belongs to this species") - (gnt:species a owl:ObjectProperty) - (gnt:species skos:definition "This resource belongs to this species") + (gnt:belongsToSpecies rdfs:domain gnc:strain) + (gnt:belongsToSpecies skos:definition "This resource belongs to this species") + (gnt:belongsToSpecies a owl:ObjectProperty) + (gnt:belongsToSpecies skos:definition "This resource belongs to this species") (gnt:alias rdfs:domain gnc:strain) (gnt:alias a owl:ObjectProperty) (gnt:symbol rdfs:domain gnc:strain) @@ -119,7 +119,7 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used. #:separator "" #:proc string-capitalize-first) (set rdf:type 'gnc:strain) - (set gnt:species + (set gnt:belongsToSpecies (string->identifier "" (remap-species-identifiers (field Species Fullname)) #:separator "" #:proc string-capitalize-first)) @@ -170,7 +170,7 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used. (set gnt:family (field InbredSet Family)) (set gnt:mappingMethod (field MappingMethod Name)) (set gnt:code (field InbredSet InbredSetCode)) - (set gnt:species + (set gnt:belongsToSpecies (string->identifier "" (remap-species-identifiers (field Species Fullname)) #:separator "" #:proc string-capitalize-first)) |