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

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

Author: ruckdeschel
Date: 2008-08-01 05:50:08 +0200 (Fri, 01 Aug 2008)
New Revision: 222

Modified:
   branches/distr-2.0/pkg/distrMod/R/AllClass.R
Log:
minor bug: bad prototype for slot trafo[.estimate] in
classes Estimate and Confint

Modified: branches/distr-2.0/pkg/distrMod/R/AllClass.R
===================================================================
--- branches/distr-2.0/pkg/distrMod/R/AllClass.R	2008-08-01 03:24:39 UTC (rev 221)
+++ branches/distr-2.0/pkg/distrMod/R/AllClass.R	2008-08-01 03:50:08 UTC (rev 222)
@@ -412,7 +412,9 @@
                    asvar = NULL,
                    Infos = matrix(c(character(0),character(0)), ncol=2,
                                   dimnames=list(character(0), c("method", "message"))),
-                   trafo = list(fct = function(x)x, mat = matrix(0)),
+                   trafo.estimate = list(fct = function(x){
+                                             list(fval = x, mat = matrix(0))}, 
+                                         mat = matrix(0)),
                    nuis.idx = NULL),
          validity = function(object){            
             if(is.null(dim(object at estimate)))
@@ -462,6 +464,8 @@
                    confint = array(0),
                    estimate.call = call("{}"),
                    name.estimate = "",
-                   trafo.estimate = list(fct = function(x)x, mat = matrix(0)),
+                   trafo.estimate = list(fct = function(x){
+                                             list(fval = x, mat = matrix(0))}, 
+                                         mat = matrix(0)),
                    nuisance.estimate = NULL)
          )