diff options
| -rwxr-xr-x | examples/classification.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/examples/classification.scm b/examples/classification.scm index 5c29238..580a559 100755 --- a/examples/classification.scm +++ b/examples/classification.scm @@ -174,6 +174,14 @@ (set gnt:has_species (string->identifier "" (remap-species-identifiers (field Species Fullname)))))) +(define-transformer inbredset-families + (tables (InbredSet) + "WHERE Family IS NOT NULL") + (triples (string->identifier "family" (field InbredSet Family) #:separator "_") + (set rdfs:label (field InbredSet Family)) + (set gnt:has_family_order_id + (annotate-field (field InbredSet FamilyOrder) + '^^xsd:integer)))) @@ -212,9 +220,10 @@ classification-scheme-set species species-fan-out - inbred-set)) + inbred-set species-families inbredset-families + species-families-fanout)) (outputs `(#:documentation ,documentation #:rdf ,output)))) |