diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/rqtl2_wrapper.R | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/scripts/rqtl2_wrapper.R b/scripts/rqtl2_wrapper.R index 6581ed4..d025935 100644 --- a/scripts/rqtl2_wrapper.R +++ b/scripts/rqtl2_wrapper.R @@ -178,16 +178,13 @@ perform_genetic_pr <- function(cross, cat("Finding the genetic Probabilities\n") if (use_pseudomarkers){ + cat("Using pseudo markers for genetic probabilites\n") map <- insert_pseudomarkers(cross$gmap, step=step) + } return(calc_genoprob(cross, map=map, error_prob=error_prob, map_function=map_function, - quiet=FALSE, cores=cores)) - } - else { - return (calc_genoprob(cross, map=map, error_prob=error_prob, - quiet = FALSE, map_function =map_function, - cores = cores)) - }} + quiet=FALSE, cores=cores)) +} Pr = perform_genetic_pr(dataset) cat("Summaries on the genetic probabilites \n") |