Replace Diff_analysis.R

scripts/Diff_analysis.R

@@ -29,7 +29,7 @@ run_analysis <- function(file_name) {
   # do glm test
   dds = nbinomWaldTest(dds)
   res = results(dds, lfcThreshold=1, altHypothesis="greaterAbs")
-  write.table(res, col.names=NA, row.names=T, file =paste(file_name,".tsv", collapse="", sep=""), sep ="\t")
+  write.table(res, col.names=NA, row.names=T, file =paste(file_name,".tsv", collapse="", sep=""), sep ="\t", quote=T)
 }