From 851305ff67960d10a84652d3d8ffbc55ba2462cc Mon Sep 17 00:00:00 2001 From: HajkD Date: Thu, 5 Sep 2019 22:14:20 +0100 Subject: [PATCH] set also for 'sample_strand' replace = TRUE as default #2 --- R/extract_random_seqs_from_genome.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/extract_random_seqs_from_genome.R b/R/extract_random_seqs_from_genome.R index 914a1e6..52a133f 100644 --- 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(