Commit 4837ad36 authored by Schoorlemmer, Joran's avatar Schoorlemmer, Joran
Browse files

Replace Diff_analysis.R added new binomtest mean

parent 5f1dc14c
......@@ -7,7 +7,6 @@
# import
library(DESeq2)
# Functions
run_analysis <- function(file_name) {
data <- read.table(file_name, row.names = 1, header=TRUE)
......@@ -29,8 +28,8 @@ run_analysis <- function(file_name) {
# do glm test
dds = nbinomWaldTest(dds)
res = results(dds)
write.table(res, col.names=NA, row.names=T, file =paste(file_name, ".tsv"), sep ="\t")
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")
}
......
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