diff options
| -rwxr-xr-x | examples/classification.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/examples/classification.scm b/examples/classification.scm index 4af9a3c..82c26dd 100755 --- a/examples/classification.scm +++ b/examples/classification.scm @@ -178,12 +178,12 @@ (tables (InbredSet) "WHERE Family IS NOT NULL") (schema-triples - (gnt:has_population_category rdfs:domain gnc:set) - (gnt:has_population_category a owl:ObjectProperty) - (gnt:has_population_category rdfs:comment "This group belongs to this population category.") - (gnt:has_population_category rdfs:label "belongs to population category.")) + (gnt:has_reference_population rdfs:domain gnc:set) + (gnt:has_reference_population a owl:ObjectProperty) + (gnt:has_reference_population rdfs:comment "This group belongs to this population category.") + (gnt:has_reference_population rdfs:label "belongs to population category.")) (triples (string->identifier "set" (field InbredSet Name InbredSetName) #:separator "_") - (set gnt:has_population_category + (set gnt:has_reference_population (string->identifier "population" (field InbredSet Family) #:separator "_")))) (define-transformer inbredset-population-list @@ -214,7 +214,7 @@ (tables (InbredSet) "WHERE public > 0 GROUP BY Family") (triples "gnc:population_category" - (set gnt:has_population_category + (set gnt:has_reference_population (string->identifier "population" (field InbredSet Family) #:separator "_")))) (define-transformer family-category-species |