[Lme4-commits] r1739 - pkg/lme4/tests

[noreply at r-forge.r-project.org]

Author: dmbates
Date: 2012-05-16 05:34:02 +0200 (Wed, 16 May 2012)
New Revision: 1739

Modified:
   pkg/lme4/tests/glmmExt.R
Log:
Patched up one of the many tests that are still failing.


Modified: pkg/lme4/tests/glmmExt.R
===================================================================
--- pkg/lme4/tests/glmmExt.R	2012-05-16 03:30:44 UTC (rev 1738)
+++ pkg/lme4/tests/glmmExt.R	2012-05-16 03:34:02 UTC (rev 1739)
@@ -40,8 +40,8 @@
 ## binomial with cloglog link
 dBc <- d
 cc <- binomial(link="cloglog")
-dBc$mu <- cc$linkinv(d$eta)
-dBc$y <- rbinom(nrow(d),dBc$mu,size=1)
+dBc$mu <- cc$linkinv(d$eta - 5)         # -5, otherwise y will be constant
+dBc$y <- factor(rbinom(nrow(d),dBc$mu,size=1))
 
 ############
 ## Gamma/inverse
@@ -85,16 +85,8 @@
 
 
 ## Binomial/cloglog
-
-## FIXME: both of these hang/infinite loop!
-
-if (FALSE) {
-    ## debug(lme4:::glmerPwrssUpdate)
-    ## if we set compDev=FALSE we get
-    ##   Error in RglmerWrkIter(pp, resp, uOnly) : object 'uOnly' not found
-    gBc1 <- glmer(y ~ 1 + (1|block), data=dBc,
-                  family=binomial(link="cloglog"), verbose= 3,
-                  compDev=FALSE)
+gBc1 <- glmer(y ~ 1 + (1|block), data=dBc,
+              family=binomial(link="cloglog"), verbose= 3)
+if (FALSE)                              # still having problems with this one
     gBc2 <- glmer(y ~ x + (1|block), data=dBc,
                   family=binomial(link="cloglog"), verbose= 3)
-}