removes wild prints

BioGenies · Aug 19, 2024 · 94c56ed · 94c56ed
1 parent 377780c
commit 94c56ed
Showing 1 changed file with 0 additions and 5 deletions.
diff --git a/R/motifs.R b/R/motifs.R
@@ -86,16 +86,11 @@ add_motifs <- function(motifs, sequence, max_attempts = 20) {
 
     while(attempt <= max_attempts & ith_motif <= length(motifs)) {
         dummy_ok <- TRUE
-
         position <- sample(positions_to_sample[[ith_motif]], 1)
         jth_motif <- 2
 
-        print(paste0("i", ith_motif))
-
         while(jth_motif <= length(motifs)) {
 
-            print(paste0("j", jth_motif))
-
             remained_positions <-
                 setdiff(positions_to_sample[[jth_motif]],
                         (position - length(motifs[[jth_motif]]) + 1):(position + length(motifs[[ith_motif]]) - 1))