[Mattice-commits] r122 - pkg/R

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

Author: andrew_hipp
Date: 2008-12-30 08:09:38 +0100 (Tue, 30 Dec 2008)
New Revision: 122

Modified:
   pkg/R/summarizingAnalyses.R
Log:
adding dimnames to summary tables

Modified: pkg/R/summarizingAnalyses.R
===================================================================
--- pkg/R/summarizingAnalyses.R	2008-12-30 07:09:19 UTC (rev 121)
+++ pkg/R/summarizingAnalyses.R	2008-12-30 07:09:38 UTC (rev 122)
@@ -21,6 +21,7 @@
                        )
   for(tree in 1:ntrees) {
     modelsMatrix[[tree]] <- cbind(icObject[[tree]]$AICwi, icObject[[tree]]$AICcwi, icObject[[tree]]$BICwi)
+    dimnames(modelsMatrix[[tree]]) <- list( dimnames(hansenBatch$hansens[[1]])[[1]], c("AICwi", "AICcwi", "BICwi"))
     bic <- icObject[[tree]]$BICwi
     for(i in seq(nnodes)) {
       modelsMatrixSubset <- modelsMatrix[[tree]][hansenBatch$regMatrix$overall[, nodes[i]] == 1, ] # subset models that contain node i