[Mattice-commits] r139 - pkg/R

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

Author: andrew_hipp
Date: 2009-01-08 23:55:46 +0100 (Thu, 08 Jan 2009)
New Revision: 139

Modified:
   pkg/R/summarizingAnalyses.R
Log:
fixing arguments to match generic functions

Modified: pkg/R/summarizingAnalyses.R
===================================================================
--- pkg/R/summarizingAnalyses.R	2009-01-08 22:55:20 UTC (rev 138)
+++ pkg/R/summarizingAnalyses.R	2009-01-08 22:55:46 UTC (rev 139)
@@ -2,7 +2,7 @@
 # FUNCTIONS FOR SUMMARIZING ANALYSES
 # ---------------------------------------------------------------------
 
-summary.hansenBatch <- function(x, ...){
+summary.hansenBatch <- function(object, ...){
 ## items in output: hansens, regimeList, regimeMatrix
   hansenBatch <- x
   icObject <- informationCriterion.hansenBatch(hansenBatch) # Get information criterion weights for all models
@@ -75,9 +75,9 @@
   return(x)
 }
 
-print.hansenSummary <- function(object, ...) {
+print.hansenSummary <- function(x, ...) {
 ## 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
-  hansenSummary <- object
+  hansenSummary <- x
   message(paste("\nSummarizing hansenBatch analyses over", length(hansenSummary$modelsMatrix), "trees and", dim(hansenSummary$modelsMatrix[[1]])[1], "models"))
   message("-----------------------------------------------------------")
   message("ESTIMATED SUPPORT FOR CHANGES OCCURRING AT DESIGNATED NODES")