14 lines
265 B
R
Executable file
14 lines
265 B
R
Executable file
#!/usr/bin/env Rscript
|
|
require('getopt', quietly=TRUE)
|
|
|
|
spec = matrix(c(
|
|
"drug" , "d", 1, "character",
|
|
"gene" , "g", 1, "character"
|
|
), byrow=TRUE, ncol=4)
|
|
|
|
opt = getopt(spec);
|
|
|
|
drug = opt$drug
|
|
gene = opt$gene
|
|
|
|
cat(c('\nDrug:', drug, '\nGene:', gene, '\n'))
|