comparison csaw.R @ 6:ee07a679ac08 draft

Uploaded

5:aa29b20bbb45

colnames(table)[4:ncol(table)] <- file_names

# Remove spaces in the table ----
setDT(table)
for (j in names(table)) set(table, j = j, value = table[[trimws(j)]]) 

# Save final table ----
# fwrite(x = table_sp, file = output, quote = F, row.names = F, sep = "\t")
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)]
  fwrite(x = tmp, file = output, quote = F, row.names = F, sep = "\t")
}

# # Save individual files ----
# Sys.time()
# r <- paste(table_sp[,1], table_sp[,2], table_sp[,3], sep = "-")

6:ee07a679ac08

colnames(table)[4:ncol(table)] <- file_names

# Remove spaces in the table ----
setDT(table)
for (j in names(table)) set(table, j = j, value = table[[trimws(j)]]) 
table_sp <- data.frame(table)
  
# Save final table ----
fwrite(x = table_sp, file = output, quote = F, row.names = F, sep = "\t")
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()
# r <- paste(table_sp[,1], table_sp[,2], table_sp[,3], sep = "-")