[Mattice-commits] r149 - pkg/R

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

Author: andrew_hipp
Date: 2009-01-13 23:12:18 +0100 (Tue, 13 Jan 2009)
New Revision: 149

Modified:
   pkg/R/summarizingAnalyses.R
Log:
fixing!

Modified: pkg/R/summarizingAnalyses.R
===================================================================
--- pkg/R/summarizingAnalyses.R	2009-01-11 04:36:49 UTC (rev 148)
+++ pkg/R/summarizingAnalyses.R	2009-01-13 22:12:18 UTC (rev 149)
@@ -5,7 +5,7 @@
 summary.hansenBatch <- function(object, ...){
 ## items in output: hansens, regimeList, regimeMatrix
   hansenBatch <- object
-  icObject <- informationCriterion.hansenBatch(hansenBatch) # Get information criterion weights for all models
+  icObject <- informationCriterion.hansenBatch(object) # 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)
   ntrees <- length(hansenBatch$hansens) # number of trees
   nodeSums <- colSums(hansenBatch$nodeMatrix) # number of trees possessing each node