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

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

Author: ruckdeschel
Date: 2008-08-01 05:53:22 +0200 (Fri, 01 Aug 2008)
New Revision: 223

Modified:
   branches/distr-2.0/pkg/distrMod/R/AllClass.R
Log:
yet another typo...

Modified: branches/distr-2.0/pkg/distrMod/R/AllClass.R
===================================================================
--- branches/distr-2.0/pkg/distrMod/R/AllClass.R	2008-08-01 03:50:08 UTC (rev 222)
+++ branches/distr-2.0/pkg/distrMod/R/AllClass.R	2008-08-01 03:53:22 UTC (rev 223)
@@ -412,9 +412,9 @@
                    asvar = NULL,
                    Infos = matrix(c(character(0),character(0)), ncol=2,
                                   dimnames=list(character(0), c("method", "message"))),
-                   trafo.estimate = list(fct = function(x){
-                                             list(fval = x, mat = matrix(0))}, 
-                                         mat = matrix(0)),
+                   trafo = 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)))
@@ -442,7 +442,9 @@
                    Infos = matrix(c(character(0),character(0)), ncol=2,
                                   dimnames=list(character(0), c("method", "message"))),
                    nuis.idx = NULL,
-                   trafo = list(fct = function(x)x, mat = matrix(0))),
+                   trafo = list(fct = function(x){
+                                      list(fval = x, mat = matrix(0))}, 
+                                mat = matrix(0)),
          contains = "Estimate")
 
 ## To Do: class MLEstimate which is compatible with class