Commit 3e1efcc9 authored by Schoorlemmer, Joran's avatar Schoorlemmer, Joran
Browse files

Replace Diff_analysis.R

parent 4837ad36
......@@ -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)
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment