# HG changeset patch
# User testtool
# Date 1490006962 14400
# Node ID 1de0d1429a3ccd74caed000e37e94be66e7bedef
# Parent  57082662d2e5451dfef50a89849306d677cdfabc
Uploaded

diff -r 57082662d2e5 -r 1de0d1429a3c annoPeakFigure/annoPeakFigure.R
--- a/annoPeakFigure/annoPeakFigure.R	Fri Mar 17 07:20:20 2017 -0400
+++ b/annoPeakFigure/annoPeakFigure.R	Mon Mar 20 06:49:22 2017 -0400
@@ -1,6 +1,7 @@
 require("ChIPseeker", quietly = TRUE)
 require("ChIPpeakAnno", quietly = TRUE)
 require("EnsDb.Hsapiens.v75", quietly = TRUE)
+require("data.table", quietly = TRUE)
 
 options(warn = -1)
 options("download.file.method"="wget")
@@ -9,8 +10,7 @@
 DMR = args[1]
 annoPeakFigure = args[2]
 
-#DMR <- ("test-data/DMR.bed")
-DMRInfo = read.table(
+DMRInfo = fread(
   DMR,
   header = FALSE,
   sep = "\t",
@@ -25,9 +25,9 @@
 annoData <- toGRanges(EnsDb.Hsapiens.v75)
 seqlevelsStyle(peaks) <- seqlevelsStyle(annoData)
 
+  
 anno <- annoPeaks(peaks, annoData=annoData,bindingType ="startSite")
 
-#annoPeakFigure <- ('test-data/annoPie.png')
 
 png(file = annoPeakFigure,
     width = 1200,