diff options
author | Munyoki Kilyungi | 2023-12-04 18:24:08 +0300 |
---|---|---|
committer | Munyoki Kilyungi | 2023-12-04 18:24:08 +0300 |
commit | 287104dbef104e22f0289b73b1501157c75f476e (patch) | |
tree | 8ecfa85d4b83363699ddd8dd3d3bf05aa0edbfd7 | |
parent | 3840c51f335babc8889cb0cb1a8ad1f4b461bd0b (diff) | |
download | gn-transform-databases-287104dbef104e22f0289b73b1501157c75f476e.tar.gz |
Replace xkos:classifiedUnder -> gnt:belongsToSpecies for species.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
-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)) |