diff annotatePeak/annotatePeak.R @ 4:e1c643f600d2 draft

Uploaded
author testtool
date Tue, 28 Feb 2017 04:36:07 -0500
parents be66730c5c3b
children
line wrap: on
line diff
--- a/annotatePeak/annotatePeak.R	Mon Feb 27 08:34:24 2017 -0500
+++ b/annotatePeak/annotatePeak.R	Tue Feb 28 04:36:07 2017 -0500
@@ -21,7 +21,6 @@
                     ranges = IRanges
                     (start = DMRInfo[, 2], end = DMRInfo[, 3]))
 
-annotatePeak <- annotatePeak(DMRPeaks, level = "gene", annoDb = "org.Hs.eg.db")
+annotatePeak <- as.data.frame(annotatePeak(DMRPeaks, level = "gene", annoDb = "org.Hs.eg.db"))
 
-
-write.csv(as.data.frame(annotatePeak), annoPeakTable, row.names = FALSE)
+write.csv(annotatePeak, annoPeakTable, row.names = FALSE)