[Lme4-commits] r1641 - pkg/lme4Eigen/inst/tests

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

Author: mmaechler
Date: 2012-03-03 16:51:55 +0100 (Sat, 03 Mar 2012)
New Revision: 1641

Modified:
   pkg/lme4Eigen/inst/tests/test-lmer.R
Log:
re-add the vcov(fm1ML) check with larger tolerance

Modified: pkg/lme4Eigen/inst/tests/test-lmer.R
===================================================================
--- pkg/lme4Eigen/inst/tests/test-lmer.R	2012-03-02 22:31:46 UTC (rev 1640)
+++ pkg/lme4Eigen/inst/tests/test-lmer.R	2012-03-03 15:51:55 UTC (rev 1641)
@@ -20,8 +20,9 @@
     expect_that(extractAIC(fm1),                        equals(c(3, 333.327059881135)))
     expect_that(extractAIC(fm1ML),                      equals(c(3, 333.327059881135)))
     expect_that(vcov(fm1)[1,1],                         equals(375.720278729861))
-    ## expect_that(vcov(fm1ML)[1,1],                       equals(313.097224695739))
-    ## FIXME: recent version gets 313.09721874266512032 instead?
+    expect_that(vcov(fm1ML)[1,1],			equals(313.097218742665,
+							       #was 313.097224695739
+							       tol = 1e-7))
     expect_that(fm2 <- refit(fm1, Dyestuff2$Yield),     is_a("lmerMod"))
     expect_that(fixef(fm2),                             is_equivalent_to(5.6656))
     expect_that(VarCorr(fm2)[[1]][1,1],                 is_equivalent_to(0))