diff options
| -rwxr-xr-x | examples/classification.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/examples/classification.scm b/examples/classification.scm index 580a559..1fe1504 100755 --- a/examples/classification.scm +++ b/examples/classification.scm @@ -183,6 +183,14 @@ (annotate-field (field InbredSet FamilyOrder) '^^xsd:integer)))) +(define-transformer species-families-fanout + (tables (Species)) + (schema-triples + (gnt:has_family_order_id a owl:DatatypeProperty)) + (triples (string->identifier "family" (field Species Family) #:separator "_") + (set gnt:has_species + (string->identifier "" (remap-species-identifiers (field Species Fullname)))))) + (let* ((option-spec |