From 94c56ed2344e6788fbbbae81ae6d2769c9079282 Mon Sep 17 00:00:00 2001 From: KrystynaGrzesiak Date: Mon, 19 Aug 2024 14:29:30 +0200 Subject: [PATCH] removes wild prints --- R/motifs.R | 5 ----- 1 file changed, 5 deletions(-) diff --git a/R/motifs.R b/R/motifs.R index 6b9fb8d..cf4036e 100644 --- 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))