Mercurial > repos > testtool > annotate_peak
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)