[Lme4-commits] r1415 - pkg/lme4Eigen/R

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

Author: dmbates
Date: 2011-10-03 18:06:28 +0200 (Mon, 03 Oct 2011)
New Revision: 1415

Modified:
   pkg/lme4Eigen/R/lmer.R
Log:
Small but important change in checking for object weights in environment rho in mkRespMod2


Modified: pkg/lme4Eigen/R/lmer.R
===================================================================
--- pkg/lme4Eigen/R/lmer.R	2011-10-01 21:11:46 UTC (rev 1414)
+++ pkg/lme4Eigen/R/lmer.R	2011-10-03 16:06:28 UTC (rev 1415)
@@ -275,7 +275,8 @@
     if (!is.null(family)) {
         stopifnot(inherits(family, "family"))
                                         # need weights for initialize evaluation
-        if (!exists("weights", rho)) rho$weights <- rep.int(1, n)
+        if (!exists("weights", rho, inherits=FALSE))
+            rho$weights <- rep.int(1, n)
         rho$nobs <- n
         eval(family$initialize, rho)
         family$initialize <- NULL     # remove clutter from str output