Fix RScript input
This commit is contained in:
@@ -16,25 +16,25 @@ args <- commandArgs(TRUE)
|
||||
|
||||
exp_name <- args[1]
|
||||
|
||||
if (length(args) > 2) {
|
||||
if (length(args) >= 2) {
|
||||
zscores_file <- args[2]
|
||||
} else {
|
||||
zscores_file <- "zscores/zscores_interaction.csv" # https://downloads.yeastgenome.org/curation/chromosomal_feature/gene_association.sgd
|
||||
}
|
||||
|
||||
if (length(args) > 3) {
|
||||
if (length(args) >= 3) {
|
||||
sgd_terms_file <- args[3]
|
||||
} else {
|
||||
sgd_terms_file <- "go_terms.tab"
|
||||
}
|
||||
|
||||
if (length(args) > 4) {
|
||||
if (length(args) >= 4) {
|
||||
sgd_features_file <- args[4]
|
||||
} else {
|
||||
sgd_features_file <- "gene_association.sgd" # https://downloads.yeastgenome.org/curation/chromosomal_feature/gene_association.sgd
|
||||
}
|
||||
|
||||
if (length(args) > 5) {
|
||||
if (length(args) >= 5) {
|
||||
output_dir <- args[5]
|
||||
} else {
|
||||
output_dir <- "../../out/gta" # https://downloads.yeastgenome.org/curation/chromosomal_feature/gene_association.sgd
|
||||
|
||||
Reference in New Issue
Block a user