# HG changeset patch
# User kpbioteam
# Date 1528897668 14400
# Node ID 82ded555555d44a08e58d502b5f5bc9e062f3c92
# Parent  a6f5812102ef95eb04308c048ada58b9075ddce8
planemo upload for repository https://github.com/kpbioteam/minfi_dmr commit 65d01f00526cadfcd1f52d06243fbc87ffee462f-dirty

diff -r a6f5812102ef -r 82ded555555d minfi_dmr.R
--- 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")