set also for 'sample_strand' replace = TRUE as default #2

drostlab · Sep 5, 2019 · 851305f · 851305f
1 parent 2ea0ca4
commit 851305f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/extract_random_seqs_from_genome.R b/R/extract_random_seqs_from_genome.R
@@ -80,7 +80,7 @@ extract_random_seqs_from_genome <-
 
         for (i in seq_len(size)) {
           sample_chromsome <- sample.int(length(chr_names), 1, replace = TRUE, prob = NULL)
-          sample_strand <- sample.int(2, 1, replace = replace, prob = c(0.5, 0.5))
+          sample_strand <- sample.int(2, 1, replace = TRUE, prob = c(0.5, 0.5))
 
           if (sample_strand == 1){
             sample_i <- sample_chromosome_intervals(