aboutsummaryrefslogtreecommitdiff
path: root/examples/dump-probesetfreeze.scm
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-06-06 14:45:45 +0300
committerBonfaceKilz2023-06-12 19:06:36 +0300
commit08df35602e16556991403d256dc156d0def8d5a5 (patch)
treea02a05708a580352177334f4166ce8671835864e /examples/dump-probesetfreeze.scm
parent0f9e3501be54e951c9101d448e8003ad693f6834 (diff)
downloadgn-transform-databases-08df35602e16556991403d256dc156d0def8d5a5.tar.gz
Add geoPlatfrom to dataset dump
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/dump-probesetfreeze.scm')
-rwxr-xr-xexamples/dump-probesetfreeze.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/examples/dump-probesetfreeze.scm b/examples/dump-probesetfreeze.scm
index 3e0c930..0be81ac 100755
--- a/examples/dump-probesetfreeze.scm
+++ b/examples/dump-probesetfreeze.scm
@@ -26,7 +26,10 @@
(gn:name rdfs:range rdfs:Literal))
(triples (string->identifier "platform" (field GeneChip Name))
(set rdf:type 'gn:platform)
- (set gn:name (field GeneChip GeneChipName))))
+ (set gn:name (field GeneChip GeneChipName))
+ (set gn:geoPlatform
+ (ontology 'geoSeries:
+ (string-trim-both (field GeneChip GeoPlatform))))))
;; Molecular Traits are also referred to as ProbeSets
(define-dump dump-probesetfreeze