Add inbredset-families.

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

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))))