# HG changeset patch
# User kyost
# Date 1525281621 14400
# Node ID 72571a30f17bc01c8968999413e6ac7000eaaaed
# Parent  fbfe7b785ea757bb9b1986007926c8c1de501195
Add test for unique peak names.

diff -r fbfe7b785ea7 -r 72571a30f17b make_window_bed.R
--- a/make_window_bed.R	Wed May 02 13:20:01 2018 -0400
+++ b/make_window_bed.R	Wed May 02 13:20:21 2018 -0400
@@ -15,6 +15,8 @@
 
 qPCR_table <- read.delim(qPCR_bed, header=FALSE, stringsAsFactors=FALSE)
 
+qPCR_table[,4] <- make.unique(qPCR_table[,4], sep = "_")
+
 make_windows_bed <- function(a, size) { #a is a bed file containing peaks of interest and coordinates
   #generates bed file with overlapping windows spanning each peak of specified size
   return_bed <- data.frame()