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

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

Author: dmbates
Date: 2011-10-26 17:12:35 +0200 (Wed, 26 Oct 2011)
New Revision: 3220

Modified:
   pkg/RcppEigen/R/fastLm.R
Log:
Allow optional arguments to be passed to printCoefmat; adapt to new returned structure.


Modified: pkg/RcppEigen/R/fastLm.R
===================================================================
--- pkg/RcppEigen/R/fastLm.R	2011-10-26 01:57:37 UTC (rev 3219)
+++ pkg/RcppEigen/R/fastLm.R	2011-10-26 15:12:35 UTC (rev 3220)
@@ -75,9 +75,9 @@
     print(x$call)
     cat("\n")
 
-    printCoefmat(x$coefficients, P.values=TRUE, has.Pvalue=TRUE)
+    printCoefmat(x$coefficients, P.values=TRUE, has.Pvalue=TRUE, ...)
     digits <- max(3, getOption("digits") - 3)
-    cat("\nResidual standard error: ", formatC(sqrt(x$s2), digits=digits), " on ",
+    cat("\nResidual standard error: ", formatC(sqrt(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),