diff options
| author | Munyoki Kilyungi | 2024-01-05 16:36:30 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2024-01-05 16:36:30 +0300 |
| commit | a32bc68c48443eb122c318285056d611edd56e40 (patch) | |
| tree | 9b6652c3335441cfc9125cdf0b8809c18c8cecb2 /examples | |
| parent | 660d46f5ceeb070903e9560a2e22202fcab4a6e1 (diff) | |
| download | gn-transform-databases-a32bc68c48443eb122c318285056d611edd56e40.tar.gz | |
Correct formatting for the gnt:location predicate for ProbeSets.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples')
| -rwxr-xr-x | examples/probeset.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/examples/probeset.scm b/examples/probeset.scm index c7efce7..9f694af 100755 --- a/examples/probeset.scm +++ b/examples/probeset.scm @@ -104,19 +104,19 @@ (and (string? strand-probe) (or (string=? "+" strand-probe) (string=? "-" strand-probe))) (cond ((string=? "+" strand-probe) - " on the plus strand") + "on the plus strand") ((string=? "-" strand-probe) - " on the minus strand") + "on the minus strand") (else ""))))) (_ - (format #f "Chr ~a @ ~a~:[~;~a~]" + (format #f "Chr ~a @ ~a Mb ~:[~;~a~]" chr mb (and (string? strand-probe) (or (string=? "+" strand-probe) (string=? "-" strand-probe))) (cond ((string=? "+" strand-probe) - " on the plus strand") + "on the plus strand") ((string=? "-" strand-probe) - " on the minus strand") + "on the minus strand") (else ""))))))) (set gnt:hasGeneId (ontology 'gene: |