Mercurial > repos > kpbioteam > ewastools
changeset 63:2ee6ac5227f1 draft
Uploaded
| author | kpbioteam |
|---|---|
| date | Thu, 04 Apr 2019 11:20:23 -0400 |
| parents | 81a9b843e05c |
| children | 3d083550977f |
| files | minfi_dmr.xml |
| diffstat | 1 files changed, 4 insertions(+), 14 deletions(-) [+] |
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" />