fixed for correct contains_maxpos calculation

loosolab · Jan 10, 2019 · 5343f60 · 5343f60
1 parent b128196
commit 5343f60
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/bin/1.2_filter_motifs/compareBed_runinfo.R b/bin/1.2_filter_motifs/compareBed_runinfo.R
@@ -52,10 +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[[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')