diff options
Diffstat (limited to 'examples/probeset.scm')
-rwxr-xr-x | examples/probeset.scm | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/examples/probeset.scm b/examples/probeset.scm index 0f83a86..c7efce7 100755 --- a/examples/probeset.scm +++ b/examples/probeset.scm @@ -33,7 +33,7 @@ (gnt:hasChip rdfs:domain gnc:Probeset) (gnt:hasTargetId a owl:ObjectProperty) (gnt:hasTargetId rdfs:domain gnc:Probeset) - (gnt:symbol rdfs:domain gnc:Probeset) + (gnt:geneSymbol rdfs:domain gnc:Probeset) (gnt:location rdfs:domain gnc:ProbeSet) (gnt:location a owl:ObjectProperty) (gnt:strandPosition rdfs:domain gnc:ProbeSet) @@ -79,12 +79,8 @@ (set gnt:hasTargetId (field ("NULLIF(TRIM(ProbeSet.TargetId), '')" TargetId))) - (set gnt:symbol - (string->identifier - "gene" (regexp-substitute/global #f "[^A-Za-z0-9:]" - (field ProbeSet Symbol) - 'pre "_" 'post) - #:proc (lambda (x) x))) + (set gnt:geneSymbol + (field ProbeSet Symbol)) (set dct:description (sanitize-rdf-string (field ProbeSet description))) (set gnt:targetsRegion (sanitize-rdf-string |