Mercurial > repos > genouest > askor_de

diff AskoR_DE.R @ 2:877d2be25a6a draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/genouest/galaxy-tools/tree/master/tools/askor commit 994ecff7807bb0eb9dac740d67ad822415b0b464
author genouest
date Thu, 19 Apr 2018 03:44:31 -0400
parents ceef9bc6bbc7
children
line wrap: on
line diff
--- a/AskoR_DE.R	Wed Apr 18 06:26:17 2018 -0400
+++ b/AskoR_DE.R	Thu Apr 19 03:44:31 2018 -0400
@@ -2,7 +2,7 @@
 source(paste0(askor_path,"/AskoR.R"))
 
 ##############################################
-##                Parameters                ##
+##                Parameters                ##  
 ##############################################
 
 parameters<-Asko_start()
@@ -31,7 +31,7 @@
 cat("Total number of genes : ", dim(data$dge$counts)[1], "\n")
 cat("Total number of samples : ", dim(data$dge$counts)[2], "\n")
 cat("summary of CPM by samples\n")
-summary(cpm(data$dge))
+summary(cpm(data$dge, normalized.lib.sizes=FALSE))
 pdf(parameters$output_pdf)
 asko_data<-asko3c(data)
 cat("Filtering genes with more than ", parameters$threshold_cpm, " CPM in ",parameters$replicate_cpm,"samples\n")
@@ -42,3 +42,5 @@
 cat("Statistical analysis\n")
 DEanalysis(asko_norm,data, asko_data,parameters)
 dev.off()
+
+