comparison annotatePeak/annotatePeak.R @ 4:e1c643f600d2 draft

Uploaded
author testtool
date Tue, 28 Feb 2017 04:36:07 -0500
parents be66730c5c3b
children
comparison
equal deleted inserted replaced
3:7beb1a8f7cb0 4:e1c643f600d2
19 19
20 DMRPeaks <- GRanges(seqnames = DMRInfo[, 1], 20 DMRPeaks <- GRanges(seqnames = DMRInfo[, 1],
21 ranges = IRanges 21 ranges = IRanges
22 (start = DMRInfo[, 2], end = DMRInfo[, 3])) 22 (start = DMRInfo[, 2], end = DMRInfo[, 3]))
23 23
24 annotatePeak <- annotatePeak(DMRPeaks, level = "gene", annoDb = "org.Hs.eg.db") 24 annotatePeak <- as.data.frame(annotatePeak(DMRPeaks, level = "gene", annoDb = "org.Hs.eg.db"))
25 25
26 26 write.csv(annotatePeak, annoPeakTable, row.names = FALSE)
27 write.csv(as.data.frame(annotatePeak), annoPeakTable, row.names = FALSE)