implement changes to store signalValue

as implemented in #1493 but putting these commits on `release_1.0.2` instead of master

Author: rcorces

R/ReproduciblePeakSet.R

@@ -789,8 +789,8 @@ addReproduciblePeakSet <- function(
 	run <- system2(pathToMacs2, cmd, wait=TRUE, stdout=NULL, stderr=NULL)
 
 	#Read Summits!
-	out <- data.table::fread(summitsFile, select = c(1,2,3,5))
-	out <- GRanges(out$V1, IRanges(out$V2 + 1, out$V3), score = out$V5)
+	out <- data.table::fread(narrowPeaksFile, select = c(1,2,5,7,10))
+	out <- GRanges(out$V1, IRanges(out$V2 + out$V10 + 1, out$V2 + out$V10 + 1), score = out$V5/10, signalValue = out$V7)
 
 	#Remove Files
 	r2 <- suppressWarnings(file.remove(summitsFile, narrowPeaksFile, xlsFile))