Add fan outs for mapping/avg methods in GN.

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

1 files changed, 13 insertions, 1 deletions

diff --git a/examples/strains.scm b/examples/strains.scm
index 2d0f144..1619876 100755
--- a/examples/strains.scm
+++ b/examples/strains.scm
@@ -86,6 +86,18 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used.
     (set skos:inScheme 'gnc:mapping_method)
     (set skos:prefLabel (field MappingMethod Name))))
 
+(define-transformer mapping-method-fan-out
+  (tables (MappingMethod))
+  (triples
+      'gnc:mapping_method
+    (set skos:member (string->identifier "mapping_method" (field MappingMethod Name) #:separator "_"))))
+
+(define-transformer avg-method-fan-out
+  (tables (AvgMethod))
+  (triples
+      'gnc:avg_method
+    (set skos:member (string->identifier "avg_method" (field AvgMethod Name AvgMethodName) #:separator "_"))))
+
 (define-transformer avg-method
   ;; The Name and Normalization fields seem to be the same. Dump only
   ;; the Name field.
@@ -128,7 +140,7 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used.
       ("rdfs:" "<http://www.w3.org/2000/01/rdf-schema#>")
       ("taxon:" "<http://purl.uniprot.org/taxonomy/>")))
    (inputs
-    (list strain mapping-method avg-method))
+    (list strain mapping-method avg-method mapping-method-fan-out avg-method-fan-out))
    (outputs
     `(#:documentation ,documentation
       #:rdf ,output))))