diff options
| -rwxr-xr-x | examples/dump-probeset.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/examples/dump-probeset.scm b/examples/dump-probeset.scm index ecd74e3..bdcdcca 100755 --- a/examples/dump-probeset.scm +++ b/examples/dump-probeset.scm @@ -35,6 +35,10 @@ (set gn:description (field ProbeSet description)) (set gn:chr (field ProbeSet Chr)) (set gn:mb (annotate-field (field ("IFNULL(ProbeSet.Mb, '')" Mb)) '^^xsd:double)) + (multiset gn:tissue (map string-trim-both + (string-split + (field ("IFNULL(ProbeSet.Tissue, '')" Tissue)) + #\,))) (multiset gn:alias (map string-trim-both (string-split (sanitize-rdf-string (field ProbeSet alias)) #\;))) |