| ... | ... |
@@ -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, |
