git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/tRanslatome@86718 bc3139a8-67e5-0310-9ffc-ced21a209358
Erik Dassi authored on 24/02/2014 12:12:27
| ... | ... |
@@ -1,7 +1,7 @@ |
| 1 | 1 |
Package: tRanslatome |
| 2 | 2 |
Type: Package |
| 3 | 3 |
Title: Comparison between multiple levels of gene expression. |
| 4 |
-Version: 1.1.3 |
|
| 4 |
+Version: 1.1.4 |
|
| 5 | 5 |
Date: 2013-11-28 |
| 6 | 6 |
Author: Toma Tebaldi, Erik Dassi, Galena Kostoska |
| 7 | 7 |
Maintainer: Toma Tebaldi <tebaldi@science.unitn.it>, Erik Dassi <erik.dassi@unitn.it> |
| ... | ... |
@@ -156,7 +156,7 @@ setMethod("computeDEGs", "TranslatomeDataset",
|
| 156 | 156 |
function(x) mean(x[which(cond.2.vector == 1)],na.rm=TRUE) - |
| 157 | 157 |
mean(x[which(cond.2.vector == 0)],na.rm=TRUE)) |
| 158 | 158 |
if (object@data.type == "ngs") |
| 159 |
- FC <- apply(cond.2, 1, |
|
| 159 |
+ FC2 <- apply(cond.2, 1, |
|
| 160 | 160 |
function(x) log(mean(x[which(cond.2.vector == 1)],na.rm=TRUE) / |
| 161 | 161 |
mean(x[which(cond.2.vector == 0)],na.rm=TRUE),base=2)) |
| 162 | 162 |
avg.trt2 <- apply(cond.2, 1, |