[Lme4-commits] r1681 - pkg/lme4.0/tests

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

Author: mmaechler
Date: 2012-03-19 21:58:34 +0100 (Mon, 19 Mar 2012)
New Revision: 1681

Modified:
   pkg/lme4.0/tests/sigma.R
Log:
extend a bit, test - try to be runnable in both lme4.0 and lme4

Modified: pkg/lme4.0/tests/sigma.R
===================================================================
--- pkg/lme4.0/tests/sigma.R	2012-03-19 18:32:57 UTC (rev 1680)
+++ pkg/lme4.0/tests/sigma.R	2012-03-19 20:58:34 UTC (rev 1681)
@@ -1,3 +1,8 @@
 library(lme4.0)
 fm1 <- lmer(Reaction ~ Days + (Days|Subject), sleepstudy)
-stopifnot(all.equal(attr(VarCorr(fm1),"sc"),sigma(fm1)))
+stopifnot(all.equal(attr(VarCorr(fm1),"sc"),
+		    s1 <- sigma(fm1)),
+	  all.equal(s1, 25.5918, tol = 1e-6)# lme4.0: 25.59181783002
+					#     lme4  : 25.59179822887
+	  , TRUE)
+