[Lme4-commits] r1659 - pkg/mlmRev/tests

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

Author: bbolker
Date: 2012-03-15 21:20:10 +0100 (Thu, 15 Mar 2012)
New Revision: 1659

Modified:
   pkg/mlmRev/tests/guImmun.R
Log:

  fix test glitch
   (FIXME: anova function doesn't have a deviance column ...)



Modified: pkg/mlmRev/tests/guImmun.R
===================================================================
--- pkg/mlmRev/tests/guImmun.R	2012-03-15 20:02:58 UTC (rev 1658)
+++ pkg/mlmRev/tests/guImmun.R	2012-03-15 20:20:10 UTC (rev 1659)
@@ -21,8 +21,9 @@
 
 (AN <- anova(fm, fm.h, fm.ho, fm.hoe, fm.hoem))
 
-AN[, "loglik"] + 1362                   # an inversion in the first two models
-AN[, "deviance"] - 2711                 # deviance scale shows this more clearly
+AN[, "logLik"] + 1362                   # an inversion in the first two models
+## FIXME: AN doesn't have a deviance column!
+## AN[, "deviance"] - 2711                 # deviance scale shows this more clearly
 stopifnot(AN[,"Df"] == c(9,10,12,15,18),
 #          all.equal(AN[,"logLik"] + 1362,
 #                    c(0.6072186497422, 0.6289103306312, 0.8541186984307,