diff minfi_dmr.xml @ 63:2ee6ac5227f1 draft

Uploaded
author kpbioteam
date Thu, 04 Apr 2019 11:20:23 -0400
parents 491cf4ada3a3
children 1334312dc198
line wrap: on
line diff
--- 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" />