[Distr-commits] r218 - branches/distr-2.0/pkg/distrMod/R

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

Author: stamats
Date: 2008-07-31 06:37:42 +0200 (Thu, 31 Jul 2008)
New Revision: 218

Modified:
   branches/distr-2.0/pkg/distrMod/R/AllShow.R
Log:
show-method for Estimate did not work for prototype

Modified: branches/distr-2.0/pkg/distrMod/R/AllShow.R
===================================================================
--- branches/distr-2.0/pkg/distrMod/R/AllShow.R	2008-07-31 03:51:53 UTC (rev 217)
+++ branches/distr-2.0/pkg/distrMod/R/AllShow.R	2008-07-31 04:37:42 UTC (rev 218)
@@ -95,7 +95,8 @@
     function(object){
         digits <- getOption("digits")
         cat(paste("An object of class", dQuote(class(object)), "\n"))
-        cat(gettextf("samplesize:   %d\n",object at samplesize))
+        if(length(object at samplesize) > 0)
+            cat(gettextf("samplesize:   %d\n",object at samplesize))
         if(!is.null(object at asvar)){
            cat("estimate:\n")
            l.x <- length(object at estimate)