fixed for correct contains_maxpos calculation

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')