diff options
| -rwxr-xr-x | examples/genbank.scm | 2 | ||||
| -rwxr-xr-x | examples/generif.scm | 4 | ||||
| -rwxr-xr-x | examples/genotype.scm | 2 | ||||
| -rwxr-xr-x | examples/strains.scm | 2 |
4 files changed, 5 insertions, 5 deletions
diff --git a/examples/genbank.scm b/examples/genbank.scm index dc40d67..391cff0 100755 --- a/examples/genbank.scm +++ b/examples/genbank.scm @@ -35,7 +35,7 @@ 'genbank: (field Genbank Id)) (set gnt:hasSequence (field Genbank Sequence)) - (set xkos:classifiedUnder + (set gnt:belongsToSpecies (string->identifier "" (remap-species-identifiers (field Species Fullname)) #:separator "" #:proc string-capitalize-first)))) diff --git a/examples/generif.scm b/examples/generif.scm index b8f81a1..76751a9 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -101,7 +101,7 @@ (format #f "rdf:type gnc:GNWikiEntry ; ") (if (string? species) "" - (format #f "xkos:classifiedUnder ~a ; " + (format #f "gnt:belongsToSpecies ~a ; " species)) (format #f "rdfs:comment ~s^^xsd:string ; " generif-comment) @@ -174,7 +174,7 @@ (format #f "rdf:type gnc:NCBIWikiEntry ; ") (format #f "rdfs:comment ~s^^xsd:string ; " ncbi-comment) - (format #f "xkos:classifiedUnder ~a ; " + (format #f "gnt:belongsToSpecies ~a ; " species-name) (if (eq? #f taxonomic-id) "" diff --git a/examples/genotype.scm b/examples/genotype.scm index a5e30f9..7e72cf8 100755 --- a/examples/genotype.scm +++ b/examples/genotype.scm @@ -70,7 +70,7 @@ (set gnt:hasAltSourceName (field ("IF((Source2 = Source), NULL, Source2)" Source2))) - (set xkos:classifiedUnder + (set gnt:belongsToSpecies (string->identifier "" (remap-species-identifiers (field Species Fullname)) #:separator "" diff --git a/examples/strains.scm b/examples/strains.scm index 8552229..bace36d 100755 --- a/examples/strains.scm +++ b/examples/strains.scm @@ -78,7 +78,7 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used. (field Strain Name) 'pre "_" 'post)) (set rdf:type 'gnc:strain) - (set xkos:classifiedUnder + (set gnt:belongsToSpecies (string->identifier "" (remap-species-identifiers (field Species Fullname)) #:separator "" #:proc string-capitalize-first)) |