comparison csaw.R @ 7:c2ec7fb35e97 draft

Uploaded

6:ee07a679ac08

dt <- table[,regions:=paste0(seqnames,"-", start, "-", end)]
table_sp <- data.frame(dt)

for(i in 4:(ncol(table_sp)-1)){
  tmp <- table_sp[,c(ncol(table_sp), i)]
  n <- colnames(table_sp)[i]
  fwrite(x = tmp, file = n, quote = F, row.names = F, sep = "\t")
}

# # Save individual files ----
# Sys.time()

7:c2ec7fb35e97

dt <- table[,regions:=paste0(seqnames,"-", start, "-", end)]
table_sp <- data.frame(dt)

for(i in 4:(ncol(table_sp)-1)){
  tmp <- table_sp[,c(ncol(table_sp), i)]
  n <- paste0(colnames(table_sp)[i],".tsv")
  fwrite(x = tmp, file = n, quote = F, row.names = F, sep = "\t")
}

# # Save individual files ----
# Sys.time()