@@ -2,7 +2,7 @@ Package: EventPointer

 Type: Package

 Title: An effective identification of alternative splicing events

 	   using junction arrays and RNA-Seq data

-Version: 2.5.3

+Version: 2.5.4

 Author: Juan Pablo Romero, Juan A. Ferrer-Bonsoms, Pablo Sacristan, Ander Muniategui, Fernando Carazo, Ander Aramburu, Angel Rubio

 Maintainer: Juan Pablo Romero <jpromero@ceit.es>

 Description: EventPointer is an R package to identify alternative splicing events 

@@ -38,10 +38,9 @@ PSI_Statistic <- function(PSI, Design, Contrast,

         stop("PSI field is empty")

     }

-    if (class(Design) != "matrix" | class(Contrast) != 

-        "matrix") {

-        stop("Wrong Design and/or Contrast matrices")

-    }

+  if (any(!is(Design,"matrix"),!is(Contrast,"matrix"))) {

+    stop("Wrong Design and/or Contrast matrices")

+  }

     if (is.null(nboot)) {

         stop("nboot field is empty")