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