[Distr-commits] r548 - pkg/distrMod/R

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

Author: ruckdeschel
Date: 2009-08-25 17:48:12 +0200 (Tue, 25 Aug 2009)
New Revision: 548

Modified:
   pkg/distrMod/R/AllClass.R
Log:
a tiny buglet in prototype for trafo slot

Modified: pkg/distrMod/R/AllClass.R
===================================================================
--- pkg/distrMod/R/AllClass.R	2009-08-25 15:17:09 UTC (rev 547)
+++ pkg/distrMod/R/AllClass.R	2009-08-25 15:48:12 UTC (rev 548)
@@ -454,7 +454,7 @@
                    Infos = matrix(c(character(0),character(0)), ncol=2,
                                   dimnames=list(character(0), c("method", "message"))),
                    trafo = list(fct = function(x){
-                                      list(fval = x, mat = matrix(0))},
+                                      list(fval = x, mat = matrix(1))},
                                 mat = matrix(1)), ### necessary for comparison with unit matrix
                    nuis.idx = NULL,
                    fixed = NULL,