[Distr-commits] r553 - in branches/distr-2.2/pkg/distrMod: R chm

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

Author: ruckdeschel
Date: 2009-08-26 03:37:28 +0200 (Wed, 26 Aug 2009)
New Revision: 553

Modified:
   branches/distr-2.2/pkg/distrMod/R/AllGeneric.R
   branches/distr-2.2/pkg/distrMod/R/Estimate.R
   branches/distr-2.2/pkg/distrMod/chm/distrMod.chm
Log:
yet another issue with accessor function to [untransformed.]estimate --- it ate the names....

Modified: branches/distr-2.2/pkg/distrMod/R/AllGeneric.R
===================================================================
--- branches/distr-2.2/pkg/distrMod/R/AllGeneric.R	2009-08-26 00:56:12 UTC (rev 552)
+++ branches/distr-2.2/pkg/distrMod/R/AllGeneric.R	2009-08-26 01:37:28 UTC (rev 553)
@@ -56,7 +56,7 @@
     setGeneric("nuisance<-", function(object, value) standardGeneric("nuisance<-"))
 }
 if(!isGeneric("trafo")){
-    setGeneric("trafo", function(object, param) standardGeneric("trafo"))
+    setGeneric("trafo", function(object, param, ...) standardGeneric("trafo"))
 }
 if(!isGeneric("trafo<-")){
     setGeneric("trafo<-", function(object, value) standardGeneric("trafo<-"))

Modified: branches/distr-2.2/pkg/distrMod/R/Estimate.R
===================================================================
--- branches/distr-2.2/pkg/distrMod/R/Estimate.R	2009-08-26 00:56:12 UTC (rev 552)
+++ branches/distr-2.2/pkg/distrMod/R/Estimate.R	2009-08-26 01:37:28 UTC (rev 553)
@@ -6,9 +6,16 @@
 setReplaceMethod("name", "Estimate", 
                   function(object, value) {object at name <- value; object})
 
-setMethod("estimate", "Estimate", function(object) as.numeric(object at estimate))
+setMethod("estimate", "Estimate", function(object){
+           es <- object at estimate
+           dim(es) <- NULL
+           es})
 setMethod("untransformed.estimate", "Estimate", 
-           function(object) as.numeric(object at untransformed.estimate))
+           function(object){
+           u.es <- object at untransformed.estimate
+           dim(u.es) <- NULL
+           u.es
+           })
 setMethod("estimate.call", "Estimate", function(object) object at estimate.call)
 
 setMethod("trafo", signature(object = "Estimate", param = "missing"), 

Modified: branches/distr-2.2/pkg/distrMod/chm/distrMod.chm
===================================================================
(Binary files differ)