[Rcpp-commits] r3696 - pkg/RcppEigen/R

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

Author: dmbates
Date: 2012-07-18 15:39:46 +0200 (Wed, 18 Jul 2012)
New Revision: 3696

Modified:
   pkg/RcppEigen/R/fastLm.R
Log:
See fortune("sermon")


Modified: pkg/RcppEigen/R/fastLm.R
===================================================================
--- pkg/RcppEigen/R/fastLm.R	2012-07-18 00:53:03 UTC (rev 3695)
+++ pkg/RcppEigen/R/fastLm.R	2012-07-18 13:39:46 UTC (rev 3696)
@@ -33,7 +33,7 @@
 
     res <- fastLmPure(X, y, as.integer(method[1]))
     res$call <- match.call()
-    res$intercept <- any(apply(X, 2, sd) == 0)
+    res$intercept <- any(apply(X, 2, function(x) all(x == 1)))
 
     class(res) <- "fastLm"
     res