diff --git a/bin/1.2_filter_motifs/abs_max_score.R b/bin/1.2_filter_motifs/abs_max_score.R deleted file mode 100644 index b6e5de0..0000000 --- a/bin/1.2_filter_motifs/abs_max_score.R +++ /dev/null @@ -1,24 +0,0 @@ -#!/bin/Rscript - -# author: Jannik Hamp -# email: jannik.hamp@googlemail.com - -# desciption: This script gets called by compareBed.sh - -# It calculates the absolute position of maximum score of the footprints. -# This information is later used for an additional flag column in the bed file. - -library(data.table) -args = commandArgs(TRUE) -file = args[1] - -tab = fread(file, sep='\t') - -# check if data has less than 9 columns -if (ncol(tab) < 9) { - stop("footprint file has less than 9 columns. exiting.") -} - -tab[[8]] = tab[[2]] + tab[[8]] - -fwrite(tab, file, row.names=FALSE, col.names=FALSE, quote=FALSE, sep='\t')