diff options
Diffstat (limited to 'examples/classification.scm')
| -rwxr-xr-x | examples/classification.scm | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/examples/classification.scm b/examples/classification.scm index e3d9bb7..3024af6 100755 --- a/examples/classification.scm +++ b/examples/classification.scm @@ -75,11 +75,14 @@ (gnt:family skos:definition "This resource belongs to this family") (gnt:shortName a owl:ObjectProperty) (gnt:shortName rdfs:domain gnc:Species) - (gnt:shortName skos:definition "The short name of a given resource")) + (gnt:shortName skos:definition "The short name of a given resource") + (gnt:belongsToSpecies a rdf:property) + (gnt:belongsToSpecies rdf:comment "This resource given to this species") + (gnt:belongsToSpecies rdf:label "belongsToSpecies")) (triples (string->identifier "" (remap-species-identifiers (field Species Fullname)) - #:separator "" - #:proc string-capitalize-first) + #:separator "" + #:proc string-capitalize-first) (set skos:inScheme 'gnc:ResourceClassificationScheme) (set rdfs:label (remap-species-identifiers (field Species Fullname))) (set skos:prefLabel (field Species MenuName)) @@ -87,8 +90,8 @@ (set gnt:shortName (field Species Name)) (set gnt:family (field Species Family)) (set skos:notation (ontology - 'taxon: - (field Species TaxonomyId))))) + 'taxon: + (field Species TaxonomyId))))) (define-transformer inbred-set (tables (InbredSet @@ -103,7 +106,10 @@ ;; Already defined as an owl prop in species (gnt:family rdfs:domain gnc:Set) (gnt:mappingMethod a owl:ObjectProperty) - (gnt:mappingMethod rdfs:domain gnc:set)) + (gnt:mappingMethod rdfs:domain gnc:set) + (gnt:belongsToGroup a rdf:property) + (gnt:belongsToGroup rdf:comment "This resource given to this group") + (gnt:belongsToGroup rdf:label "belongsToGroup")) (triples (string->identifier "set" (field InbredSet Name InbredSetName) #:separator "" |