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

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

Author: edd
Date: 2012-07-19 02:50:09 +0200 (Thu, 19 Jul 2012)
New Revision: 3699

Modified:
   pkg/RcppEigen/R/fastLm.R
Log:
 o correct residual standard error display


Modified: pkg/RcppEigen/R/fastLm.R
===================================================================
--- pkg/RcppEigen/R/fastLm.R	2012-07-19 00:31:59 UTC (rev 3698)
+++ pkg/RcppEigen/R/fastLm.R	2012-07-19 00:50:09 UTC (rev 3699)
@@ -81,7 +81,7 @@
     cat("\n")
 
     printCoefmat(x$coefficients, P.values=TRUE, has.Pvalue=TRUE, ...)
-    cat("\nResidual standard error: ", formatC(sqrt(x$s), digits=digits), " on ",
+    cat("\nResidual standard error: ", formatC(x$s, digits=digits), " on ",
         formatC(x$df), " degrees of freedom\n", sep="")
     cat("Multiple R-squared: ", formatC(x$r.squared, digits=digits),
         ",\tAdjusted R-squared: ",formatC(x$adj.r.squared, digits=digits),