Mercurial > repos > dktanwar > test_csaw_1

comparison csaw.R @ 7:c2ec7fb35e97 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author dktanwar
date Mon, 18 Dec 2017 12:31:02 -0500
parents ee07a679ac08
children
comparison
equal deleted inserted replaced
6:ee07a679ac08 7:c2ec7fb35e97
58 dt <- table[,regions:=paste0(seqnames,"-", start, "-", end)] 58 dt <- table[,regions:=paste0(seqnames,"-", start, "-", end)]
59 table_sp <- data.frame(dt) 59 table_sp <- data.frame(dt)
60 60
61 for(i in 4:(ncol(table_sp)-1)){ 61 for(i in 4:(ncol(table_sp)-1)){
62 tmp <- table_sp[,c(ncol(table_sp), i)] 62 tmp <- table_sp[,c(ncol(table_sp), i)]
63 n <- colnames(table_sp)[i] 63 n <- paste0(colnames(table_sp)[i],".tsv")
64 fwrite(x = tmp, file = n, quote = F, row.names = F, sep = "\t") 64 fwrite(x = tmp, file = n, quote = F, row.names = F, sep = "\t")
65 } 65 }
66 66
67 # # Save individual files ---- 67 # # Save individual files ----
68 # Sys.time() 68 # Sys.time()