... | ... |
@@ -2,7 +2,7 @@ Package: EventPointer |
2 | 2 |
Type: Package |
3 | 3 |
Title: An effective identification of alternative splicing events |
4 | 4 |
using junction arrays and RNA-Seq data |
5 |
-Version: 2.5.2 |
|
5 |
+Version: 2.5.3 |
|
6 | 6 |
Author: Juan Pablo Romero, Juan A. Ferrer-Bonsoms, Pablo Sacristan, Ander Muniategui, Fernando Carazo, Ander Aramburu, Angel Rubio |
7 | 7 |
Maintainer: Juan Pablo Romero <jpromero@ceit.es> |
8 | 8 |
Description: EventPointer is an R package to identify alternative splicing events |
... | ... |
@@ -53,13 +53,13 @@ EventPointer_RNASeq_TranRef <- function(Count_Matrix, |
53 | 53 |
stop("Wrong statistical test given") |
54 | 54 |
} |
55 | 55 |
|
56 |
- if (class(Design) != "matrix" | class(Contrast) != |
|
57 |
- "matrix") { |
|
56 |
+ if (any(!is(Design,"matrix"),!is(Contrast,"matrix"))) { |
|
58 | 57 |
stop("Wrong Design and/or Contrast matrices") |
59 | 58 |
} |
60 | 59 |
|
61 | 60 |
|
62 | 61 |
|
62 |
+ |
|
63 | 63 |
if (Statistic == "LogFC" | Statistic == |
64 | 64 |
"Dif_LogFC" | Statistic == "DRS") { |
65 | 65 |
AuxM <- matrix(c(1, 0, 0, 1, 1, 0, |