Add species families fan-out.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>

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