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

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

Author: dmbates
Date: 2012-04-04 23:35:55 +0200 (Wed, 04 Apr 2012)
New Revision: 1701

Modified:
   pkg/lme4/tests/glmer-1.R
Log:
Can now run the MASS example.  But the fits to the cbpp data are giving very different values of the deviance.


Modified: pkg/lme4/tests/glmer-1.R
===================================================================
--- pkg/lme4/tests/glmer-1.R	2012-04-04 21:34:48 UTC (rev 1700)
+++ pkg/lme4/tests/glmer-1.R	2012-04-04 21:35:55 UTC (rev 1701)
@@ -35,7 +35,7 @@
                     check.attr=FALSE),
 ##        all.equal(deviance(m2), 100.010030538022, tol=1e-9)
           ## with bobyqa first (AGQ=0), then 
-          all.equal(deviance(m2), 101.11977669, tol=1e-9)
+          all.equal(deviance(m2), 101.119749563, tol=1e-9)
 )
 
 stopifnot(is((cm1 <- coef(m1)), "coef.mer"),
@@ -58,7 +58,7 @@
 showProc.time() #
 
 ## FIXME -- non-convegence!!
-if (FALSE && require('MASS', quietly = TRUE)) {
+if (require('MASS', quietly = TRUE)) {
     bacteria$wk2 <- bacteria$week > 2
     contrasts(bacteria$trt) <-
         structure(contr.sdif(3),