@@ -2,8 +2,8 @@ Package: crlmm

 Type: Package

 Title: Genotype Calling (CRLMM) and Copy Number Analysis tool for

         Affymetrix SNP 5.0 and 6.0 and Illumina arrays.

-Version: 1.25.0

-Date: Thu Sep 25 21:06:19 EST 2014

+Version: 1.25.1

+Date: Sat Oct 18 14:34:17 EST 2014

 Author: Benilton S Carvalho, Robert Scharpf, Matt Ritchie, Ingo

         Ruczinski, Rafael A Irizarry

 Maintainer: Benilton S Carvalho <Benilton.Carvalho@cancer.org.uk>,

@@ -1260,7 +1260,8 @@ genotype.Illumina <- function(sampleSheet=NULL,

 	                    "humanomni258v1a",        # Omni2.5 8 v1 A

                             "humanomni258v1p1b",      # Omni2.5 8 v1.1 B

                             "humanomni5quadv1b",      # Omni5 quad

-			    "humanexome12v1p2a")      # Exome 12 v1.2 A

+			    "humanexome12v1p2a",      # Exome 12 v1.2 A

+                            "humanomniexpexome8v1p1b") # Omni Express Exome 8 v1.1b

         crlmm.supported = c("human1mv1c",             # 1M

                             "human370v1c",            # 370CNV

 	                    "human650v3a",            # 650Y

@@ -159,10 +159,10 @@ calculatePriorValues <- function(M, numSNP, verbose) {

     stopCluster(cl) 

     centers <- matrix(centers, numSNP, 3, byrow = TRUE)

     priormeans = apply(centers, 2, FUN="median", na.rm=TRUE)

-       if(abs(sum(priormeans))>1)

-        checksymmetric= apply(centers,1,function(x){abs(sum(x))})<1

+    if(abs(sum(priormeans))>1) {

+      checksymmetric= apply(centers,1,function(x){abs(sum(x))})<1

       priormeans=apply(centers[checksymmetric,],2, FUN="median", na.rm=TRUE)

- 

+    }

     if (verbose) message("Done calculating Prior Means")

     return(priormeans)

 }