diff options
| -rwxr-xr-x | scripts/precompute/run-gemma.scm | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/scripts/precompute/run-gemma.scm b/scripts/precompute/run-gemma.scm index b0db622..00cc68d 100755 --- a/scripts/precompute/run-gemma.scm +++ b/scripts/precompute/run-gemma.scm @@ -32,14 +32,19 @@ and with some extra paths (for gemma) (option-spec '( (version (single-char #\v) (value #f)) (help (single-char #\h) (value #f)))) (options (getopt-long args option-spec)) + (show-version (option-ref options 'version #f)) (help-wanted (option-ref options 'help #f))] - (display "RUNNING") + (if show-version + (begin + (display "run-gemma version 1.0\n") + (exit))) (if help-wanted - (format #t "list-traits-to-compute writes JSON traits files from the GN DB -Usage: list-traits-to-compute [options...] - -h, --help Display this help -")) - (let [(trait-id "115475") + (format #t "run-gemma +Usage: run-gemma [options...] filename(s) + -v --version Display version + -h --help Display this help +") + (let [(trait-id "115475") (trait-fn "115475.json") ] @@ -55,4 +60,4 @@ Usage: list-traits-to-compute [options...] ] (write-pheno-file pheno-fn traits) (invoke-gemma-wrapper-loco dataset-name trait-name trait-fn pheno-fn "BXD.8_geno.txt.gz") - )))))) + ))))))) |