[Distr-commits] r554 - branches/distr-2.2/pkg/distrMod/R

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

Author: ruckdeschel
Date: 2009-08-26 04:48:36 +0200 (Wed, 26 Aug 2009)
New Revision: 554

Modified:
   branches/distr-2.2/pkg/distrMod/R/Estimate.R
Log:
and yet another name/dim buglet

Modified: branches/distr-2.2/pkg/distrMod/R/Estimate.R
===================================================================
--- branches/distr-2.2/pkg/distrMod/R/Estimate.R	2009-08-26 01:37:28 UTC (rev 553)
+++ branches/distr-2.2/pkg/distrMod/R/Estimate.R	2009-08-26 02:48:36 UTC (rev 554)
@@ -9,11 +9,13 @@
 setMethod("estimate", "Estimate", function(object){
            es <- object at estimate
            dim(es) <- NULL
+           names(es) <- names(object at estimate)
            es})
 setMethod("untransformed.estimate", "Estimate", 
            function(object){
            u.es <- object at untransformed.estimate
            dim(u.es) <- NULL
+           names(u.es) <- names(object at untransformed.estimate)
            u.es
            })
 setMethod("estimate.call", "Estimate", function(object) object at estimate.call)