Repository 'ewastools'
hg clone https://toolshed.g2.bx.psu.edu/repos/kpbioteam/ewastools

Changeset 63:2ee6ac5227f1 (2019-04-04)
Previous changeset 62:81a9b843e05c (2019-04-04) Next changeset 64:3d083550977f (2019-04-04)
Commit message:
Uploaded
modified:
minfi_dmr.xml
b
diff -r 81a9b843e05c -r 2ee6ac5227f1 minfi_dmr.xml
--- a/minfi_dmr.xml Thu Apr 04 11:20:00 2019 -0400
+++ b/minfi_dmr.xml Thu Apr 04 11:20:23 2019 -0400
[
@@ -48,17 +48,10 @@
         nullMethod = nullMethod,
         B = B)
 
-dmrGR <- with(dmrs\$table,GRanges(chr,IRanges(start,end),area=area,value=value))
-
-dmrGR <- as.data.frame(dmrGR)
-
-colnames(dmrGR) <- c("seqnames","start","end","width","strand","area","value")
+dmrGR <- dmrs\$table[,c(1,2,3)] 
+colnames(dmrGR) <- c("chr","start","end")
 
-dmrGR\$strand <- NULL
-
-dmrGR\$area <- NULL
-
-write.table(dmrGR, file= '$dmr', quote = FALSE,col.names = FALSE, row.names = FALSE, sep = "\t")
+write.table(dmrGR, file= '$dmr', quote = FALSE,col.names = TRUE, row.names = FALSE, sep = "\t")
  ]]>
     </configfile>
     </configfiles>
@@ -99,12 +92,9 @@
 
 The output is an interval file with the following columns:
 
-    - seqnames
+    - chr
     - start
     - end
-    - width 
-    - area
-    - value
 
     ]]></help>
     <expand macro="citations" />