[Lme4-commits] r1720 - pkg/lme4/R

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

Author: dmbates
Date: 2012-05-07 20:56:45 +0200 (Mon, 07 May 2012)
New Revision: 1720

Modified:
   pkg/lme4/R/utilities.R
Log:
Provide proper beta and u values in mkMerMod after the new optimization of GLMMs


Modified: pkg/lme4/R/utilities.R
===================================================================
--- pkg/lme4/R/utilities.R	2012-05-07 18:12:40 UTC (rev 1719)
+++ pkg/lme4/R/utilities.R	2012-05-07 18:56:45 UTC (rev 1720)
@@ -516,7 +516,7 @@
               GLMM=(rcl=="glmResp"),
               NLMM=(rcl=="nlsResp"))
     storage.mode(dims) <- "integer"
-    fac     <- as.numeric(rcl == "lmerResp")
+    fac     <- as.numeric(rcl != "nlsResp")
     sqrLenU <- pp$sqrL(fac)
     wrss    <- resp$wrss()
     pwrss   <- wrss + sqrLenU