fix error with degenerate factors

Author: amcdavid

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: SingleCellAssay
 Type: Package
 Title: Core data structures for single-cell assays
-Version: 0.78
-Date: 2014-01-28
+Version: 0.79
+Date: 2014-04-08
 Author: Andrew McDavid <[email protected]>, Greg Finak <[email protected]>
 Maintainer: Greg Finak <[email protected]>
 VignetteBuilder: knitr

R/zeroinf.R

@@ -68,7 +68,9 @@ zlm <- function(formula, data,lm.fun=glm,silent=TRUE, subset, ...){
        glmer(disc.formula, data, family='binomial', ...)
   }, silent=silent)
       } else{
-          disc <- lm.fun(disc.formula, data, family='binomial', ...)
+          disc <- try({
+              lm.fun(disc.formula, data, family='binomial', ...)
+  }, silent=silent)
       }
   if(inherits(disc, 'try-error')){
       disc <- lm(0~0)