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

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

Author: dmbates
Date: 2012-03-12 23:14:26 +0100 (Mon, 12 Mar 2012)
New Revision: 1646

Modified:
   pkg/lme4Eigen/R/AllClass.R
Log:
Temporary fix.  Something was wrong with the unsc method but I'm not sure what.


Modified: pkg/lme4Eigen/R/AllClass.R
===================================================================
--- pkg/lme4Eigen/R/AllClass.R	2012-03-12 13:12:01 UTC (rev 1645)
+++ pkg/lme4Eigen/R/AllClass.R	2012-03-12 22:14:26 UTC (rev 1646)
@@ -162,7 +162,7 @@
                      },
                      unsc         = function() {
                          'the unscaled variance-covariance matrix of the fixed-effects parameters'
-                         .Call(merPredDunsc, ptr())
+                         tcrossprod(RXi())
                      },
                      linPred      = function(fac) {
                          'evaluate the linear predictor for step factor fac'