[Rcpp-commits] r1240 - in pkg: RcppArmadillo/R RcppGSL/R

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

Author: edd
Date: 2010-05-14 04:09:32 +0200 (Fri, 14 May 2010)
New Revision: 1240

Modified:
   pkg/RcppArmadillo/R/fastLm.R
   pkg/RcppGSL/R/fastLm.R
Log:
print coefficients to four digits


Modified: pkg/RcppArmadillo/R/fastLm.R
===================================================================
--- pkg/RcppArmadillo/R/fastLm.R	2010-05-14 01:55:20 UTC (rev 1239)
+++ pkg/RcppArmadillo/R/fastLm.R	2010-05-14 02:09:32 UTC (rev 1240)
@@ -50,7 +50,7 @@
     cat("\nCall:\n")
     print(x$call)
     cat("\nCoefficients:\n")
-    print(x$coefficients)
+    print(x$coefficients, digits=5)
 }
 
 summary.fastLm <- function(object, ...) {

Modified: pkg/RcppGSL/R/fastLm.R
===================================================================
--- pkg/RcppGSL/R/fastLm.R	2010-05-14 01:55:20 UTC (rev 1239)
+++ pkg/RcppGSL/R/fastLm.R	2010-05-14 02:09:32 UTC (rev 1240)
@@ -48,7 +48,7 @@
     cat("\nCall:\n")
     print(x$call)
     cat("\nCoefficients:\n")
-    print(x$coefficients)
+    print(x$coefficients, digits=5)
 }
 
 summary.fastLm <- function(object, ...) {