diff options
| -rwxr-xr-x | examples/strains.scm | 14 |
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)))) |