[Mattice-commits] r65 - pkg/R

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

Author: andrew_hipp
Date: 2008-12-02 15:29:11 +0100 (Tue, 02 Dec 2008)
New Revision: 65

Modified:
   pkg/R/summarizingAnalyses.R
Log:
small change to print.summary to make theta matrix display only if it is small

Modified: pkg/R/summarizingAnalyses.R
===================================================================
--- pkg/R/summarizingAnalyses.R	2008-12-02 09:19:03 UTC (rev 64)
+++ pkg/R/summarizingAnalyses.R	2008-12-02 14:29:11 UTC (rev 65)
@@ -120,6 +120,9 @@
   message("\nMODEL AVERAGED PARAMETERS")
   message(paste("alpha =", hansenSummary$modelAvgAlpha))
   message(paste("sigma^2 =", hansenSummary$modelAvgSigmaSq))
-  message("theta matrix, with branches as the columns and trees as the rows:")
-  print(hansenSummary$thetaMatrix)
+  if(any(dim(hansenSummary$thetaMatrix) > 12)) message(paste("theta matrix is too long to display; access through the summary object"))
+  else {
+    message("theta matrix, with branches as the columns and trees as the rows:")
+    print(hansenSummary$thetaMatrix)
+    }
 }
\ No newline at end of file