changeset 23:82ded555555d draft

planemo upload for repository https://github.com/kpbioteam/minfi_dmr commit 65d01f00526cadfcd1f52d06243fbc87ffee462f-dirty
author kpbioteam
date Wed, 13 Jun 2018 09:47:48 -0400
parents a6f5812102ef
children 6a075dd8f382
files minfi_dmr.R
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/minfi_dmr.R	Wed Jun 13 09:26:32 2018 -0400
+++ b/minfi_dmr.R	Wed Jun 13 09:47:48 2018 -0400
@@ -58,6 +58,8 @@
 
 dmrGR <- with(dmrs$table,GRanges(chr,IRanges(start,end),area=area,value=value))
 
-dmrGRtab <- as.data.frame(dmrGR)
+dmrGR <- as.data.frame(dmrGR)
 
-write.table(dmrGRtab, file= output1, quote = FALSE, row.names = FALSE, sep = "\t")
+colnames(dmrGR) <- c("seqnames","start","end","width","strand","area","value")
+
+write.table(dmrGR, file= output1, quote = FALSE, row.names = FALSE, sep = "\t")