diff options
| author | Alexander_Kabui | 2024-11-11 12:09:49 +0300 |
|---|---|---|
| committer | Alexander_Kabui | 2024-11-11 12:09:49 +0300 |
| commit | a164214fc5789db5056dccdc12f4acd370abef8a (patch) | |
| tree | 165b7f347b040cdad7fddc66bea0af43159d2dc0 | |
| parent | 006f3f73c20431754b8b6e5c2fc50202b2b7d926 (diff) | |
| download | genenetwork3-a164214fc5789db5056dccdc12f4acd370abef8a.tar.gz | |
refactor: use NO_OF_CORES as default and pass control file to arguments.
| -rw-r--r-- | scripts/rqtl2_wrapper.R | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scripts/rqtl2_wrapper.R b/scripts/rqtl2_wrapper.R index d025935..50008cf 100644 --- a/scripts/rqtl2_wrapper.R +++ b/scripts/rqtl2_wrapper.R @@ -95,7 +95,7 @@ if (!(item %in% names(json_data))){ } } -generate_cross_object <- function(json_data) { +generate_cross_object <- function(control_file_path, json_data) { # function to write the cross object from a json data object return ( write_control_file( @@ -126,7 +126,7 @@ generate_cross_object <- function(json_data) { # generate the cross file -generate_cross_object(json_data) +generate_cross_object(control_file_path, json_data) # read from the cross file path dataset <- read_cross2(control_file_path, quiet = FALSE) # replace this with a dynamic path @@ -159,7 +159,7 @@ founders(dataset) # Function for computing the genetic probabilities perform_genetic_pr <- function(cross, - cores = 1, + cores = NO_OF_CORES, step=1, map=NULL, use_pseudomarkers=FALSE, |