[Analogue-commits] r299 - pkg/R

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

Author: gsimpson
Date: 2013-01-16 13:16:01 +0100 (Wed, 16 Jan 2013)
New Revision: 299

Modified:
   pkg/R/summary.bootstrap.mat.R
Log:
pass in digits to the print method

Modified: pkg/R/summary.bootstrap.mat.R
===================================================================
--- pkg/R/summary.bootstrap.mat.R	2013-01-16 12:15:36 UTC (rev 298)
+++ pkg/R/summary.bootstrap.mat.R	2013-01-16 12:16:01 UTC (rev 299)
@@ -22,10 +22,10 @@
                                         digits = max(3, getOption("digits") - 3),
                                         ...)
   {
-    print.bootstrap.mat(x)
+    print.bootstrap.mat(x, digits = digits, ...)
     #print.bootstrap(x)
     cat("\nBootstrap estimated values for training set:\n")
-    with(x$bootstrap, print(estimated[,k], digits = digits))
+    with(x$bootstrap, print(estimated[,k], digits = digits, ...))
     if(!is.null(x$predictions)) {
       cat(paste("\nPredicted values based on a",
                 ifelse(x$weighted, " weighted", ""),
@@ -35,7 +35,7 @@
         cat("(k chosen from model with lowest RMSEP)\n\n")
       else
         cat("\n")
-      with(x$predictions$model, print(predicted[k,], digits = digits))
+      with(x$predictions$model, print(predicted[k,], digits = digits, ...))
     }
     if(!is.null(x$predictions)) {
       cat(paste("\nBoostrap predicted values based on a",
@@ -46,7 +46,7 @@
         cat("(k chosen from model with lowest RMSEP)\n\n")
       else
         cat("\n")
-      with(x$predictions$bootstrap, print(predicted[,k], digits = digits))
+      with(x$predictions$bootstrap, print(predicted[,k], digits = digits, ...))
     }
     cat("\nTraining set assessment:\n\n")
     k.model <- x$model$k
@@ -59,6 +59,6 @@
                       s1 = x$sample.errors$s1[,k.boot],
                       s2 = x$sample.errors$s2[,k.boot],
                       RMSEP = x$sample.errors$rmsep[,k.boot])
-    print(dat, digits = digits)
+    print(dat, digits = digits, ...)
     invisible(x)
   }