[Mattice-commits] r125 - pkg/R

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

Author: andrew_hipp
Date: 2008-12-30 16:08:47 +0100 (Tue, 30 Dec 2008)
New Revision: 125

Modified:
   pkg/R/summarizingAnalyses.R
Log:
adding '...' argument to summary and print methods

Modified: pkg/R/summarizingAnalyses.R
===================================================================
--- pkg/R/summarizingAnalyses.R	2008-12-30 15:08:10 UTC (rev 124)
+++ pkg/R/summarizingAnalyses.R	2008-12-30 15:08:47 UTC (rev 125)
@@ -2,7 +2,7 @@
 # FUNCTIONS FOR SUMMARIZING ANALYSES
 # ---------------------------------------------------------------------
 
-summary.hansenBatch <- function(hansenBatch){
+summary.hansenBatch <- function(hansenBatch, ...){
 ## items in output: hansens, regimeList, regimeMatrix
   icObject <- informationCriterion.hansenBatch(hansenBatch) # Get information criterion weights for all models
   nmodels <- dim(hansenBatch$hansens[[1]])[1] # number of models per tree (ignores the fact that models may not be present in all trees)
@@ -74,7 +74,7 @@
   return(x)
 }
 
-print.hansenSummary <- function(hansenSummary) {
+print.hansenSummary <- function(hansenSummary, ...) {
 ## This just formats a hansenSummary object so that it is readable on the screen; you can still store the summary object and extract elements as needed
   message(paste("\nSummarizing hansenBatch analyses over", length(hansenSummary$modelsMatrix), "trees and", dim(hansenSummary$modelsMatrix[[1]])[1], "models"))
   message("-----------------------------------------------------------")