[Lme4-commits] r1700 - pkg/lme4/src

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

Author: dmbates
Date: 2012-04-04 23:34:48 +0200 (Wed, 04 Apr 2012)
New Revision: 1700

Modified:
   pkg/lme4/src/respModule.cpp
Log:
Correct the definition of the working weights


Modified: pkg/lme4/src/respModule.cpp
===================================================================
--- pkg/lme4/src/respModule.cpp	2012-04-04 21:33:58 UTC (rev 1699)
+++ pkg/lme4/src/respModule.cpp	2012-04-04 21:34:48 UTC (rev 1700)
@@ -133,7 +133,7 @@
     }
 
     VectorXd glmResp::sqrtWrkWt() const {
-	return d_weights.array() * muEta().square() / variance().sqrt();
+	return muEta().array() * (d_weights.array() / variance().array()).sqrt();
     }
 
     double glmResp::Laplace(double ldL2, double ldRX2, double sqrL) const {