diff csaw.R @ 7:c2ec7fb35e97 draft

Uploaded
author dktanwar
date Mon, 18 Dec 2017 12:31:02 -0500
parents ee07a679ac08
children
line wrap: on
line diff
--- a/csaw.R	Mon Dec 18 12:10:21 2017 -0500
+++ b/csaw.R	Mon Dec 18 12:31:02 2017 -0500
@@ -60,7 +60,7 @@
 
 for(i in 4:(ncol(table_sp)-1)){
   tmp <- table_sp[,c(ncol(table_sp), i)]
-  n <- colnames(table_sp)[i]
+  n <- paste0(colnames(table_sp)[i],".tsv")
   fwrite(x = tmp, file = n, quote = F, row.names = F, sep = "\t")
 }