From 881b445ed41f41588be932378795a87100c3d238 Mon Sep 17 00:00:00 2001 From: JannikHamp Date: Thu, 10 Jan 2019 11:02:53 +0100 Subject: [PATCH] fixed max_pos calculation --- bin/1.2_filter_motifs/compareBed_runinfo.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/bin/1.2_filter_motifs/compareBed_runinfo.R b/bin/1.2_filter_motifs/compareBed_runinfo.R index 4888c02..ea6b1a6 100644 --- a/bin/1.2_filter_motifs/compareBed_runinfo.R +++ b/bin/1.2_filter_motifs/compareBed_runinfo.R @@ -52,9 +52,10 @@ data_filtered[[7]] <- data_filtered[[3]] - data_filtered[[2]] # adding column "contains_maxpos", containing flag (0 or 1) # max_pos is the position of maximum score of a footprint +data_filtered[[8]] <- data_filtered[[8]] - data_filtered[[2]] data_filtered <- cbind(data_filtered, contains_maxpos = 0) data_filtered$contains_maxpos[intersect(which(data_filtered[[2]] <= data_filtered[[8]]), which(data_filtered[[3]] > data_filtered[[8]]))] = 1 -data_filtered[[8]] <- data_filtered[[8]] - data_filtered[[2]] +data_filtered[[8]] <- data_filtered[[8]] + data_filtered[[2]] fwrite(data_filtered, output, col.names=FALSE, quote = FALSE, sep = '\t')